No that make no difference it still comes up with the same error.

Bob
"FunkySquid" wrote in message
...
It's the last few lines that look wrong. You have an Exit Do outside
the loop & the End If outside the loop. Try this:


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
End If
Loop
'Exit Do
Sheets("Lookup").Select


Hope this helps.


On Sep 30, 4:24 pm, "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