Adding IF function

[sjfir]

Hi, I have the following macro which is used to print off a different number of copies for different audiences, the problem I have is that if the sheets have data they will print off any way and I was wondering how I would add an IF statement to check for example in sheet B whether cell B44 was 0 and if zero it would not then print that sheet and so on. Thanks

Sheets(Array("A", "B", "C", _
"D", "E")).Select
Sheets("A").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
Sheets(Array("A", "C", "D", _
"E", "F")).Select
Sheets("C").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("G").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("A").Select

 

[hippiehacker]

If Not Sheets("sheet2").Range("B44") = 0 Then

'your code to print here
 
End If

 

[sjfir]

Hi

I tried that and all I am getting is a compile error around the word Sheets, any help please.