Works fine now thanks all for your help

Bob
"Susan" wrote in message
...
A. it would help greatly if you indented your code (see below)

B. your second "end if" needs to be within the loop (i believe).

hope that helps
:)
susan


On Sep 30, 11:24 am, "bob" wrote:
Hi I have the following code which I need to Loop but it keeps coming up
with the following error

Compile Error Loop Without Do

Can you see where I have gone wrong? I do have a Do Until statement, if I
take out the word Loop out it comes up with the Error
Compile Error Do Without Loop what's wrong?

Sheets("Data").Select
Range("A2").Select
Do Until ActiveCell = ""
If ActiveCell "" Then
Selection.Copy
Sheets("Advice").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Advice").Select
If Range("P51") 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
Collate:=True
End If
Sheets("Data").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
End If
Exit Do
Sheets("Lookup").Select

End Sub

Thanks Bob