Sheet3.PrintOut...Only if sheet2 Cell A1 has data????? 1

[coolcarls]

How do I have a sheet printout (via a macro) if a cell in another sheet has data?
I have tried a bunch of stuff but can't get it right.

 

[tuxalot]

Sub test()

Application.ScreenUpdating = False

Sheets("Sheet2&quot.Activate

Dim checker As Variant

Set checker = range("A1&quot

If checker <> &quot;&quot; Then

Sheets(&quot;Sheet3&quot.Select

Application.Dialogs(xlDialogPrint).Show

Application.ActivePrinter = &quot;Set printer name here:&quot;
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
&quot;Set printer name here:&quot;, Collate:=True

End If

Set checker = Nothing

Application.ScreenUpdating = True

End Sub

Not the slickest, but it works.

Sky

 

[coolcarls]

Thank You!

 

[tuxalot]

You're very welcome. I'm new to VBA, so it's nice giving a little back (even though I don't really know what I'm doing).

Glad it worked out.

Sky