Liste over ark i projektmappe i Excel

Hej,

Jeg vil gerne lave en macro, der rydder op i min projektmappe.
Jeg har en pivot, hvor man kan dobbeltklikke på en celle for at få at se de data der ligger til grund for pivoten. Det genererer imidlertid et nyt ark hver gang... Ark1, Ark2, Ark3 osv.
For at man ikke skal sidde og slette dem manuelt, vil jeg gerne have lavet en macro, der sletter dem automatisk. Jeg havde forestillet mig en for-løkke:

For i = 1 To 99
NAVN = "Ark" & i
    Sheets(NAVN).Select
    ActiveWindow.SelectedSheets.Delete
Next i

Men det virker kun, hvis der er et ark, der hedder Ark1 og sletter kun fortløbende, så har man manuelt slettet Ark2, men ikke fra Ark3 og op, slettes disse ikke.
Kan man i stedet lave en liste over ark i en projektmappe og på den måde slette dem?

Nogen ideer?

Mvh Kasper