Setting Print Area within Excel Macro
Have a worksheet that creates an output based on a form input from a separate worksheet within the WB. Based on the input, it is possible to have up to 99 rows of data, but usually much less. Would like to set up a macro that only those rows in Column A that have a value are printed. Each row has an IF/THEN formula based on the form input.
Having a hard time creating a sub-macro that will set up the print area based on the blank cells.
Please help!
Option Explicit Sub Macro1() Dim LastData As Long LastData = WorksheetFunction.CountIf(Range("A:A"), ">""") ActiveSheet.PageSetup.PrintArea = "$A$1:$A" & LastData Range("A1").Select End Sub
Ben Van Johnson
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks