bladre mellem ark?

hej jeg håber i kan hjælpe mig...

jeg vil lave et program der kan slette ark der er ældre end en input-dato som brugeren bliver spurgt om.

arkene er angivet med en dato til sidst...fx "Mogens 27-12-06"
og jeg kan sagtens finde ud af at få den til at slette dem der er ældre end den dato som man angiver... MEN:

Hvordan kan jeg bladre mellem arkene så jeg kan bruge det aktive arks navn i et loop så alle arkene bliver gennemsøgt?

I kan få min kode her...håber i kan hjælpe..håber i forstår mig :D

Sub Rydop()

Workbooks.Open Filename:= _
(ThisWorkbook.Path & "\Rapport.xls")

Dim arkdato As Date
Dim brugerdato As Date

brugerdato = InputBox("Angiv datoen fra hvor der skal slettes. Fx. 02-09-2003")

arkdato = Right(ActiveSheet.Name, 8)

If brugerdato > arkdato Then
    ActiveSheet.Delete
End If

MsgBox ("Der blev ikke fundet flere ark")
End Sub


jeg ved nemlig ikke hvad jeg ellers kan bruge istedet for ActiveSheet.Name