Drop down list that jumps to a cell in the same sheet

.
Paste in the Sheet Level Module :

Option Explicit

Private Sub ComboBox1_Change()
Dim x As String
x = ComboBox1.Value

    Sheets("Sheet1").Range(x).Select

End Sub

Private Sub Worksheet_Activate()
 
With ComboBox1
        .Clear
        .AddItem "A1"
        .AddItem "C10"
        .AddItem "B25"
        
End With
    
End Sub