Macro to Print only if text in a specific cell

[Stelios Panayides]

I am using the following macro to prevent printing if there is no text in a specific cell:

Sub Macro1()
Sheets("Sheet1").Select
If Range("A1") <> "." Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub

The macro is working fine and the sheet is not printed when in the cell there was only a dot.

But when I removed the dot (".") from the if statement i.e. use the macro:

Sub Macro1()
Sheets("Sheet1").Select
If Range("A1") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub

the sheet is now printed.

Any ideas would be highly appreciated.

 

[VoG]

It works for me. Are you sure there isn't anything (like a space for example) in A1.

 

[Stelios Panayides]

Thanks for your response.

Actually cell A1 take the data from another cell in another sheet. Previously I used to have a dot in the empty cells but now I prefer them blank.