VBA- Navigation List

[Is_REF]

Hello! I am trying to build a macro to be able to navigate in one sheet. It seems too complex to me, as I don't have programming background.
The idea is the following, I have this summary list:

Column G	Column I
100	USA
120	EU
140	JAPAN
...	...

<tbody>
</tbody>

Column G contains the row number where information of country in Column I starts. I want to select cell I2 (USA) and the macro to do a "go to" to row 100 (value in cell G2), or select EU and go to row 120, etc...

I have tried with the following:

Private Sub Country_list_navigation(ByVal Target As Range)

Dim Country_name As Object
Dim Country_row As Object
Dim Target_row As Integer

Country_name = Range("I5:I104")
Country_row = Range("G5:G104")
Target_row = ActiveCell.Offset(0, -2).Value

If Target.Adress = Country_name Then
Application.Goto Reference:=Cells(1, Target_row), scroll:=True

End If
End Sub

Of course, it is not working... any ideas?
Thank you in advance!

Best,
Isa

 

[DanteAmor]

Put the following code in the events of your sheet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("I:I")) Is Nothing Then
        If Cells(Target.Row, "G").Value <> "" And IsNumeric(Cells(Target.Row, "G").Value) Then
            Application.Goto Reference:=Cells(Cells(Target.Row, "G").Value, 1), scroll:=True
        End If
    End If
End Sub

 

[Is_REF]

Awesome!! It works!
Thanks!! ray:

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.