Hello!
A few years back someone kindly posted the following code which allowed me to print using a macro any worksheet within my workbook if it had data in a specified cell (in this case A4).
Dim ws As Worksheet
Dim first As Boolean
first = True
For Each ws In Worksheets
If ws.[A4].Value <> Empty Then
If first Then
ws.Select Replace:=True
first = False
Else
ws.Select Replace:=False
End If
End If
Next
ActiveWindow.SelectedSheets.PrintOut copies:=1
How can I modify this so that it performs the same process but ONLY on the one worksheet, not all worksheets within a work book?
Thanks in advance.
Darren
Bookmarks