Vis / skjul kolonner VBA

Hej,

Jeg har lavet en Excel fil, som skal skjule en række kolonner, på baggrund af hvilken dato der indtastet i en udarbejdet UserForm hertil.

I knappen på UserFormen, har jeg indsat nedenstående kode, som skal vise/skjule kolonner i et andet ark i samme forbindelse med at dato indtastes.

Mit problem er, at hvis jeg indtaster datoer som ligger mellem den 1 og 12, så sker der ikke noget, men datoer fra den 13 til 31, der kan koden godt vise/skjule kolonner.

Håber at i kan hjælpe

Private Sub CommandButton1_Click()

'slå skærmopdatering til igen
Application.ScreenUpdating = False

Dim sh1 As Worksheet

Set sh1 = ActiveWorkbook.Sheets("Salg&Ordre")
Set sh2 = ActiveWorkbook.Sheets("Controlling")
 
sh2.Range("M6").Value = Format(TextBox1.Value, "dd-mm-yyyy")
             
              ThisWorkbook.Save

Unload Me
 


    If Range("Dag").Value = 1 Then 'Denne kode er kopieret 31 gange
        sh1.Columns("F").EntireColumn.Hidden = False
        sh1.Columns("G").EntireColumn.Hidden = True
        sh1.Columns("H").EntireColumn.Hidden = True
        sh1.Columns("I").EntireColumn.Hidden = True
        sh1.Columns("J").EntireColumn.Hidden = True
        sh1.Columns("K").EntireColumn.Hidden = True
        sh1.Columns("L").EntireColumn.Hidden = True
        sh1.Columns("M").EntireColumn.Hidden = True
        sh1.Columns("N").EntireColumn.Hidden = True
        sh1.Columns("O").EntireColumn.Hidden = True
        sh1.Columns("P").EntireColumn.Hidden = True
        sh1.Columns("Q").EntireColumn.Hidden = True
        sh1.Columns("R").EntireColumn.Hidden = True
        sh1.Columns("S").EntireColumn.Hidden = True
        sh1.Columns("T").EntireColumn.Hidden = True
        sh1.Columns("U").EntireColumn.Hidden = True
        sh1.Columns("V").EntireColumn.Hidden = True
        sh1.Columns("W").EntireColumn.Hidden = True
        sh1.Columns("X").EntireColumn.Hidden = True
        sh1.Columns("Y").EntireColumn.Hidden = True
        sh1.Columns("Z").EntireColumn.Hidden = True
        sh1.Columns("AA").EntireColumn.Hidden = True
        sh1.Columns("AB").EntireColumn.Hidden = True
        sh1.Columns("AC").EntireColumn.Hidden = True
        sh1.Columns("AD").EntireColumn.Hidden = True
        sh1.Columns("AE").EntireColumn.Hidden = True
        sh1.Columns("AF").EntireColumn.Hidden = True
        sh1.Columns("AG").EntireColumn.Hidden = True
        sh1.Columns("AH").EntireColumn.Hidden = True
        sh1.Columns("AI").EntireColumn.Hidden = True
        sh1.Columns("AJ").EntireColumn.Hidden = True
       
        End If
'slå skærmopdatering fra
Application.ScreenUpdating = True
 
End Sub