Only Run part of a DO loop on first instance

[mantis_sg]

Is the there a way to skip some code after the first loop? e.g.

I have a do loop that loops 5 times, I want all the code to be executed during the first loop but for the 2nd,3rd,4th and 5th times I only want a certain ammount of the code to run...?????

 

[mantis_sg]

Greg,

Sub FooFoo()
    Dim booDoneOnce As Boolean
    
    booDoneOnce = False         ' optional
    Do Until SomeCondition
        ' code
        ' code
        ' more very interesting stuff
        If Not booDoneOnce Then
            ' code that should
            ' only execute the one time
        End If
        booDoneOnce = True
    Loop
End Sub

Worked perfectly, thank you.