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