Please change your code  to this

Sub First_list()
Dim myshape As Shape
For Each myshape In ActiveSheet.Shapes
If myshape.Name = "Drop Down 9" Then
If Range("u17") = 1 Then
Sheets(ActiveSheet.Name).Select
Application.Goto Reference:=Worksheets(ActiveSheet.Name).Range("A1"), _
Scroll:=True
ElseIf Range("u17") = 2 Then
Sheets(ActiveSheet.Name).Select
Application.Goto Reference:=Worksheets(ActiveSheet.Name).Range("W1"), _
Scroll:=True
ElseIf Range("u17") = 3 Then
Sheets(ActiveSheet.Name).Select
Application.Goto Reference:=Worksheets(ActiveSheet.Name).Range("AT1"), _
Scroll:=True
End If

ElseIf myshape.Name = "Drop Down 464" Then
If Range("u17") = 1 Then
Sheets(ActiveSheet.Name).Select
Application.Goto Reference:=Worksheets(ActiveSheet.Name).Range("A70"), _
Scroll:=True
ElseIf Range("u17") = 2 Then
Sheets(ActiveSheet.Name).Select
Application.Goto Reference:=Worksheets(ActiveSheet.Name).Range("W70"), _
Scroll:=True
ElseIf Range("u17") = 3 Then
Sheets(ActiveSheet.Name).Select
Application.Goto Reference:=Worksheets(ActiveSheet.Name).Range("AT70"), _
Scroll:=True
End If
End If
Next
End Sub