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

--
Regards,
Tom Ogilvy


"John Davies" wrote:

> 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