Repeat Do Loop, nested in If statement

[cmeier7]

Hello, I am trying to repeat a Do Loop given a specific property return in an If Statement. For example, for the first part of it I have:

Do
        
r = ActiveCell.Row
If r < 53 Then
    a = "C"
    b = r - 1
    If Sheets(n).Cells(b, 3).Interior.ColorIndex = 15 Then
        ActiveCell.Offset(1, 0).Select
        Loop
    Else
    End If
ActiveCell.Value = "='" & n & "'!" & a & "" & b & ""
Loop

The Loop in the middle I want to automatically return back to the top of the Do Loop (without completeing the ActiveCell.Value. Basically I want everything after that Loop to not happen, and instead automatically repeat the Do Loop. Is this possible?

 

[capparfrank]

You have to use a GOTO to do this. Typically, GOTO is considered pretty evil and should be avoided. It might be hard to understand why in simple cases, but when you start reading code that has hundreds and hundreds you'll get the idea.

Do
 
r = ActiveCell.Row
If r < 53 Then
    a = "C"
    b = r - 1
    If Sheets(n).Cells(b, 3).Interior.ColorIndex = 15 Then
        ActiveCell.Offset(1, 0).Select
        GOTO Continue01
    Else
    End If
ActiveCell.Value = "='" & n & "'!" & a & "" & b & ""
 
Continue01:
Loop

here is a link that may be helpful to you if you choose to re-write in a more structured way.
http://www.mrexcel.com/forum/showthread.php?t=260786
skim down to pgc01's remarks.

 

[cmeier7]

Thanks, yes I can only imagine how confusing and messy using GoTos could get if you used them all the time. I will only be using it for this one situation. Thank you again.