Macro Programming

[dkelb]

With the following text I get a COMPILE ERROR: Loop without Do.

I don't get it!??


Cells(1, 1).Select
Selection.UnMerge
Row = 2
Do Until Row > 250
If Cells(Row, 1) = " " Then
If Cells(Row + 2, 1) = "" Then
Cells(Row + 3, 1).Select
Selection.UnMerge
End If
End If
Row = Row + 1
Loop

'unmerge topic and obj
Row = 3

Do Until Row > 250
Cells(Row, 1).Select
Selection.UnMerge
Cells(Row + 1, 1).Select
Selection.UnMerge
If Row + 5 = "" Then
Row = Row + 8
Else
If Row + 6 = "" Then
Row = Row + 9
Else
Row = Row + 5
End If
Loop

 

[mark.wagner]

Need to "End If" before the last loop statement. You only ended one of them.