Sub Macro1()
Dim Cel As Range
Dim Rng As Range
Dim Local_Variable As Object
Set Rng = Worksheets("Index").Range("B5:B142")
For Each Cel In Rng
If Cel.Offset(0, 4) <> "X" And Cel.Offset(0, 8).Value = "X" Then
Cel.Offset(0, -1).Hyperlinks(1).Follow
If...