Hi,

Just an update, I resolved the problem by changing 1 line of code (isnt
that always the way)


My Select, sort and print page 2 section now reads


VBA:

' Select, sort and print page 2

Sheets("Formulas").Select
If Range ("P8") < 1 Then Goto SKIP
Range("P8:P10").Select
Selection.Copy
Sheets("Stage 1 - Visit diary").Select
Range("E4").Select
ActiveSheet.Paste
Sheets("Stage 1 - Visit form").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Line 2 added range and moved the bracket.........

Alec.


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