Microsoft Office Forums - View Single Post - Return row index of all cells where text is found.

batman1 · 01-24-2025, 07:26 AM

I would change it to (don't use On Error... ONLY to exit Do... Loop)

Code:

If Not oRng Is Nothing Then
    FirstAdd = oRng.Address
    Do
        oCol.Add oRng.Row, CStr(oRng.Row)
        Set oRng = .FindNext(oRng)
    Loop While oRng.Address <> FirstAdd
End If