søg i ark der sommetider er skjulte

Hej

Jeg har et regneark til log af hver dag i måned.
Det skjuler automatisk ark, som ikke er aktuelle i de enkelte måneder.

f.eks. er det kun ark 1-30 der er synlig i april måned. Ark 31 er skjult.

Når jeg overfører data fra arkene, får jeg en fejl ved de skjulte ark.

Kan de søges i arkene uanset, om de er synlige eller skjulte?
Alternativt springe de skjulte ark over?

Her under er et eksempel på VBA koden:

ActiveSheet.ShowAllData
    Sheets("31").Select
    Range("A2").Select
    ActiveSheet.ListObjects("Tabel31").Range.AutoFilter Field:=1, Criteria1:= _
        "<>"