try this from ANYWHERE in the workbook. NO need to select.
Sub Letter1Printchoose()
If Sheets("Stage 2 Letter").Range("C23").Value < "" Then
application.Run ([Sub Letter1Printmulti()])
else
application. Run ([Sub Letter1Printsingle()])
end if
End Sub



--
Don Guillett
SalesAid Software

"Alec H" wrote in
message ...

Hi,

This is where I demonstrate my breathtaking ignorance.....

This is my code;




Code:
--------------------


Sub Letter1Printchoose()

Sheets("Stage 2 Letter").Select
If Range("C23").Value < "" Then Run ([Sub Letter1Printmulti()])
If Range("C23").Value = "" Then Run ([Sub Letter1Printsingle()])
Sheets("Customer List").Select

End Sub


--------------------


Why doesn't it work?

My only excuse is that it is Friday.......


--
Alec H
------------------------------------------------------------------------
Alec H's Profile:
http://www.excelforum.com/member.php...o&userid=31042
View this thread: http://www.excelforum.com/showthread...hreadid=518720