How about:

Sub Letter1Printchoose()

Sheets("Stage 2 Letter").Select
If Range("C23").Value < "" Then
call Letter1Printmulti
else
call Letter1Printsingle
end if
Sheets("Customer List").Select

End Sub

Alec H wrote:

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

--

Dave Peterson