Hide all sheets where cell on sheet is a Saturday or Sunday

Hi there dear forum members and hopefully specialists,

i was wondering if i could get this code 'compressed' in a loop.
i tried to, but i got stuck when using WeekDay together with Range combination...
can anyone help me on shroten this up please?

Private Sub Worksheet_Change(ByVal Target As Range)
If Weekday(Worksheets("01").Range("a1"), 2) > 5 Then Worksheets("01").Visible = xlSheetVeryHidden
If Weekday(Worksheets("02").Range("a1"), 2) > 5 Then Worksheets("02").Visible = xlSheetVeryHidden
If Weekday(Worksheets("03").Range("a1"), 2) > 5 Then Worksheets("03").Visible = xlSheetVeryHidden
If Weekday(Worksheets("04").Range("a1"), 2) > 5 Then Worksheets("04").Visible = xlSheetVeryHidden
If Weekday(Worksheets("05").Range("a1"), 2) > 5 Then Worksheets("05").Visible = xlSheetVeryHidden
If Weekday(Worksheets("06").Range("a1"), 2) > 5 Then Worksheets("06").Visible = xlSheetVeryHidden
If Weekday(Worksheets("07").Range("a1"), 2) > 5 Then Worksheets("07").Visible = xlSheetVeryHidden
If Weekday(Worksheets("08").Range("a1"), 2) > 5 Then Worksheets("08").Visible = xlSheetVeryHidden
If Weekday(Worksheets("09").Range("a1"), 2) > 5 Then Worksheets("09").Visible = xlSheetVeryHidden
If Weekday(Worksheets("10").Range("a1"), 2) > 5 Then Worksheets("10").Visible = xlSheetVeryHidden
If Weekday(Worksheets("11").Range("a1"), 2) > 5 Then Worksheets("11").Visible = xlSheetVeryHidden
If Weekday(Worksheets("12").Range("a1"), 2) > 5 Then Worksheets("12").Visible = xlSheetVeryHidden
If Weekday(Worksheets("13").Range("a1"), 2) > 5 Then Worksheets("13").Visible = xlSheetVeryHidden
If Weekday(Worksheets("14").Range("a1"), 2) > 5 Then Worksheets("14").Visible = xlSheetVeryHidden
If Weekday(Worksheets("15").Range("a1"), 2) > 5 Then Worksheets("15").Visible = xlSheetVeryHidden
If Weekday(Worksheets("16").Range("a1"), 2) > 5 Then Worksheets("16").Visible = xlSheetVeryHidden
If Weekday(Worksheets("17").Range("a1"), 2) > 5 Then Worksheets("17").Visible = xlSheetVeryHidden
If Weekday(Worksheets("18").Range("a1"), 2) > 5 Then Worksheets("18").Visible = xlSheetVeryHidden
If Weekday(Worksheets("19").Range("a1"), 2) > 5 Then Worksheets("19").Visible = xlSheetVeryHidden
If Weekday(Worksheets("20").Range("a1"), 2) > 5 Then Worksheets("20").Visible = xlSheetVeryHidden
If Weekday(Worksheets("21").Range("a1"), 2) > 5 Then Worksheets("21").Visible = xlSheetVeryHidden
If Weekday(Worksheets("22").Range("a1"), 2) > 5 Then Worksheets("22").Visible = xlSheetVeryHidden
If Weekday(Worksheets("23").Range("a1"), 2) > 5 Then Worksheets("23").Visible = xlSheetVeryHidden
If Weekday(Worksheets("24").Range("a1"), 2) > 5 Then Worksheets("24").Visible = xlSheetVeryHidden
If Weekday(Worksheets("25").Range("a1"), 2) > 5 Then Worksheets("25").Visible = xlSheetVeryHidden
If Weekday(Worksheets("26").Range("a1"), 2) > 5 Then Worksheets("26").Visible = xlSheetVeryHidden
If Weekday(Worksheets("27").Range("a1"), 2) > 5 Then Worksheets("27").Visible = xlSheetVeryHidden
If Weekday(Worksheets("28").Range("a1"), 2) > 5 Then Worksheets("28").Visible = xlSheetVeryHidden
If Weekday(Worksheets("29").Range("a1"), 2) > 5 Then Worksheets("29").Visible = xlSheetVeryHidden
If Weekday(Worksheets("30").Range("a1"), 2) > 5 Then Worksheets("30").Visible = xlSheetVeryHidden
If Weekday(Worksheets("31").Range("a1"), 2) > 5 Then Worksheets("31").Visible = xlSheetVeryHidden
End Sub

thx stnkynts,
but i get the error message : Run-time Error '9': Subscript out of Range on the last If statement...

any ideas how to change this?

i would say that the worksheets are ok... as it workeg with my BIG private sub

hence with your loop... it is not working
so... i provided you the right info but got something which is not running