VBA Stop Cycle

I have a macro that does everything I need it to do (find a certain word, move the contents of that cell it to another cell, and keep searching for more). However, I can't get it to stop (and move on to the next command).

Here is what I have:

' MOVE "Participant Name"
Cells.Find(What:="Participant", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
With ActiveCell
If .Column > 1 And .Row < Rows.Count Then
.Cut Destination:=.Offset(3, -2)
End If
End With
Loop Until IsEmpty(ActiveCell.Offset(0, 1))

I'm sure it's obvious to you gurus, but I need your help!
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!