Burde dette ikke virke

Sub SletGamleData()
Dim Rapport As Worksheet
   
    Application.DisplayAlerts = False
    For Each Rapport In ActiveWorkbook.Sheets
        If Rapport.Name = "Quick-Menu" _
                Or Rapport.Name = "SAPData" _
                    Or Rapport.Name = "Data" _
                        Or Rapport.Name = "SAPBEXqueries" _
                            Or Rapport.Name = "SAPBEXfilters" _
        Then GoTo n
       
        Else
            Rapport.Delete
        End If
n:
    Next Rapport
    Application.DisplayAlerts = True
End Sub

Compile fejl : End whithout if