VBA to hide columns based on a cell value

Hi all,

I would like to ask whether someone can help me with the below.

I am trying to have a number of column hidden depending on the value in a particular cell. For ease of reference I have attached a sample.

Sub HideColumn_Jan()



    If Sheets("2015").Range("A5").Value = January Then
        Columns("A:D").EntireColumn.Hidden = False
        Columns("D:F").EntireColumn.Hidden = True
        Columns("G:BN").EntireColumn.Hidden = False
   
     
     
    End If
    
 End Sub

However the code doesn't seem to be working. Can someone please help me out

Appreciate a lot your kind help!

Thank

Keibri