VBA code to Skip to the next cell with contents within a column

[Tommy_Oh_Boy]

hi Excel Gru,

I'm hoping to get some help.
I have this code, but keep getting stuck on the first find. Do you know why clicking a button with the below macro assigned, won't move the selection to the next find?

Dim LastCell As Range

Sub FindIT()
Dim f As Range
Dim rngSearch As Range
Dim LastCell As Range

With ActiveSheet
    Set rngSearch = .Range("F10:F2000")
    If LastCell Is Nothing Then Set LastCell = rngSearch.Cells(rngSearch.Rows.Count, rngSearch.Columns.Count)
    With rngSearch
        Set f = .Find(what:="*", after:=LastCell, lookat:=xlPart)
        If Not f Is Nothing Then
            Set LastCell = f
            f.Activate
            If Intersect(ActiveWindow.VisibleRange, f) Is Nothing Then
                ActiveWindow.ScrollRow = f.Row
            End If
        End If
    End With
End With
End Sub

 

[Fluff]

Duplicate to: VBA code to jump to the next cell with contents within a column

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.