Fehlermeldung

Sub Auto_Open()
ActiveSheet.Unprotect
Application.Goto Reference:="Geburtstage"
Selection.Sort Key1:=Range("V118"), Order1:=xlAscending, Key2:=Range( _
"AA118"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom
Application.Goto Reference:="C21:C34"
Selection.EntireColumn.Hidden = True
Application.Goto Reference:="R1C1"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub