Hvorfor er vba (eller mig) så dum i nakken???

Private Sub SletEvtDubletterArk()

Dim Sht As Worksheet

For Each Sht In Application.Worksheets
  If ActiveSheet.Name = "Dubletter" Then
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
  End If
Next

For Each Sht In Application.Worksheets
  If ActiveSheet.Name = "Mangler" Then
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
  End If
Next

End Sub

- og hvorfor slette denne kode ikke arket Dubletter???

argh

S :o]