I have a macro, but when i try to execute it in excel i always get the error run-time error '438'
(object doesn't support this property or method) why?

This is the macro:

Sub Vai_A()
    '
   ind_fo = Sheets("START").DropDowns(1).Val + 1
   nome_fo = Sheets("Lis_fogli").Cells(ind_fo, 1)
   Sheets(nome_fo).Activate
   If nome_fo = "Frontespizio" Then
    Columns("A:M").Select
    Range("M1").Activate
    ActiveWindow.Zoom = True
    Range("A2").Select
   ElseIf nome_fo = "Sinottico" Then
     Columns("A:AM").Select
    Range("AM1").Activate
    ActiveWindow.Zoom = True
    Range("A1").Select
   ElseIf nome_fo = "Guida" Then
     Columns("A:E").Select
    Range("E1").Activate
    ActiveWindow.Zoom = True
    Range("A1").Select
   Else
    Columns("A:Q").Select
    Range("Q1").Activate
    ActiveWindow.Zoom = True
    Range("A1").Select
   End If
End Sub
End Sub

Can someone help me, please.