Hyperlink Looping Problem

[Blackvader]

I have the following code which is supposed to loop through the links in a column, click each link and then proceed to the next row in that column. Except that, it isn't working. Any suggestions?

Sub tumanaliz()
    Dim lastRow As Long
    Dim hyperlink As hyperlink
    
    With Sheets("Listing")
        lastRow = .Cells(.Rows.Count, "I").End(xlUp).Row
        
        For i = 2 To lastRow
            Set hyperlink = .Cells(i, "I").Hyperlinks(1)
            
            If Not hyperlink Is Nothing Then
                Application.StatusBar = "Processing row " & i
                .Cells(2, 32).Value = .Cells(i, 30).Value ' Set value in cell AG2
                
                hyperlink.Follow ' Click on the hyperlink
                
                Application.Wait (Now + TimeValue("0:00:02")) ' Wait for 2 seconds
                
                Application.StatusBar = ""
            End If
        Next i
    End With
End Sub

 

[OaklandJim]

This works for me. I put the hyperlinks column "header" into cell C1 and there are two links in cells C2 and C3 below it which are followed as expected.

Sub tumanaliz()
    Dim lastRow As Long
    Dim hyperlink As hyperlink
    Dim iLoopIndex As Long
    
    With Sheets("Listing")
        lastRow = .Cells(.Rows.Count, "C").End(xlUp).Row

        For iLoopIndex = 2 To lastRow
            
            Set hyperlink = .Cells(iLoopIndex, "C").Hyperlinks(1)

            If Not hyperlink Is Nothing Then
                Application.StatusBar = "Processing row " & iLoopIndex
                .Cells(2, 32).Value = .Cells(iLoopIndex, 30).Value ' Set value in cell AG2

                hyperlink.Follow ' Click on the hyperlink

                Application.Wait (Now + TimeValue("0:00:02")) ' Wait for 2 seconds

                Application.StatusBar = ""
            End If
        Next iLoopIndex
    End With
    
End Sub