macro to print a sheet if a cell is a certain value

[John Davies]

I have set up the following macro to print certain sheets and it works ok,
however I only want it to print sheet named 'Handback' if cell A1 in that
sheet is greater than 1. How can I incorporate that in the macro?

Thanks in advance of any help.

Regards

John


Sub newprint()
'
' newprint Macro
' Macro recorded 08/02/2006 by
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Customer Profile").Select
Range("b15") = "NEW VEHICLE ENQUIRY"
Sheets("DAN").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Customer Profile").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Checklist").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Handback").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("New").Select
Range("M46") = "CUSTOMER COPY"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("M46").Select
Selection.ClearContents
Sheets("DAN").Select
Range("Z70") = "CUSTOMER COPY"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("Z70").Select
Selection.ClearContents
Sheets("Disclosure").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("AA Cars").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("New").Select
Range("G10").Select

 

[Tom Ogilvy]

Sheets("Handback").Select
if Range("A1") > 1 then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End if