Of course you'll need to edit to suit but this should point you in th
right direction


Sub PrintNeededSpreadsheets()

Sheets("Sheet1").Select
if Range("A1").value < "0" then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
end if

Sheets("Sheet2").Select
if range("A1").value < "0" then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
end if

.....

End Sub


Jorda

--
Message posted from http://www.ExcelForum.com