Slette ark fra VBA

Tror dette virker:
Indsæt:

Før din kode der sletter:
Application.DisplayAlerts = False

Efter din kode der sletter:
Application.DisplayAlerts = True

Og kunne vi få en reaktion på hvorvidt det kunne bruges?

Beklager den lange svartid:
Det kunne det ikke, sagen er at jeg genererer et regneark fra Access, ved at klikke på en knap, overføres data til en Excel skabelon. I Access kan jeg ikke bruge Application.Display og i Excel kan jeg ikke bruge ekvivalentet fra Access! :(

Ok, så skulle du måske netop have nævnt at det var problematikken.

Hmm...jeg bruger faktisk selv noget lignende - og det virker glimrende:

Dim objXL As Object
Dim strWhat As String, boolXL As Boolean
Dim objActiveWkb As Object

    If fIsAppRunning("Excel") Then
        Set objXL = GetObject(, "Excel.Application")
        boolXL = False
    Else
        Set objXL = CreateObject("Excel.Application")
        boolXL = True
    End If

    objXL.Application.workbooks.Add
    Set objActiveWkb = objXL.Application.ActiveWorkBook
   
    objXL.Application.DisplayAlerts = False
    objActiveWkb.Worksheets(1).Range("A1:A1") = "hej"
    objActiveWkb.Worksheets(1).Select
    objXL.Application.ActiveWindow.SelectedSheets.Delete
    objActiveWkb.Worksheets(1).Select
    objXL.Application.ActiveWindow.SelectedSheets.Delete
    objActiveWkb.Worksheets(1).Name = "TOM"
    objXL.Application.DisplayAlerts = True

Denne kode benyttes i Access

Øv, jeg skulle have checket dit svar noget før (har ikke modtaget mails fra eksperten gud-ved-hvor-lang-tid!), jeg endte med at bruge alle ark i skabelonen.
Men jeg kan jo bruge din løsning i fremtidige projekter, så mange tak.