Hi
try
sub print_it()
if worksheets("Balance").range("J23").value0 then
worksheets("Invoice").printout Copies:=1, Collate:=True
end if
end sub

--
Regards
Frank Kabel
Frankfurt, Germany


Jon M. wrote:
How do I need to state the following so that it will
work??

If ('Balance'!J23) 0 Then Sheets("Invoice").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
Collate:=True

Thank-you