Hvordan kalde på et bestem Worksheets

Sub finddato()
Dim dato As Date
    dato = "31-03-2007"
    For Each ark In ActiveWorkbook.Sheets
        If ark.Cells(1, 1) = dato Then
            ark.Activate
            ark.Cells(1, 1).Select
            Exit Sub
        End If
    Next
End Sub

Mange tak, lige hvad jeg skulle bruge

Selv tak - så får du et svar...