If Then

[Jon M.]

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

 

[Frank Kabel]

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

 

[Jon M.]

-----Original Message-----
Hi
try
sub print_it()
if worksheets("Balance").range("J23").value>0 then
worksheets("Invoice").printout Copies:=1, Collate:=True
end if
end sub

--
Regards
Frank Kabel
Frankfurt, Germany


.
Thanks, it works perfect.