Loop Error in VBA

[sasha1]

I am a pretty inexperienced user of VBA but hoping someone can help... Why would I bet getting a "Loop without Do" error on the following code?

*********************
Sub OverUnder()

Sheets("Weekly Input Sheet").Range("B4").Select
CurrWkNum = ActiveCell.Value
Sheets("Sample File").Select

Do While Error = False
ActiveSheet.Next.Select
CurrSheetName = ActiveSheet.Name
Columns("E:E").Select
Selection.Find(What:=CurrWkNum, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 5).Select
If ActiveCell.Value > 0 Then
Range(Selection, ActiveCell.Offset(0, 3)).Select
Selection.Copy
Sheets("Profitability Dashboard").Select
Cells.Select
Selection.Find(What:="Which are over and by what %", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets(CurrSheetName).Select
Range("A5").Select
Range(Selection, ActiveCell.Offset(0, 3)).Select
Selection.Copy
Sheets("Profitability Dashboard").Select
Cells.Select
Selection.Find(What:="Which are over and by what %", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(xlDown).Select
ActiveCell.Offset(0, -2).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets(CurrSheetName).Select
Else
Loop

End Sub
****************

thanks in advance for the help!!!

 

[Norie]

Because you don't have End If anywhere?

Try replacing Else with End If.

 

[jasonb75]

Weclome to the board!

At a quick glance, and without copying and testing your code I would say your error is in the do line, should be Do, not Do While, or alternatively you could keep Do While and delete Else and Loop from the end.

Hope this helps

Someone please correct me if I'm wrong there, I don't use Do - Loop as a rule so not 100% certain on this.