Kode der kun virker ved kørsel step-by-step

Hi,

Kan det lade sig gøre at VBA der køres step-by-step i VB editoren virker, men den samme stump kode (se herunder) ikke virker når Excel selv skal eksekvere koden?

Der er linjen ActiveWindow.SelectedSheets.Delete der generer en fejl: Method 'Delete' of object 'Sheets' failed.

/Lars

---

Dim Project As String
Dim Sh As Object

Project = LCase("Email")
For Each Sh In ActiveWorkbook.Sheets
    If LCase(Sh.Name) = Project Then
        Sh.Activate
        Application.DisplayAlerts = False
        ActiveWindow.SelectedSheets.Delete
        Application.DisplayAlerts = True
        Exit For
    End If
Next Sh