VBA will not run until a cell is selected

[si_1970]

Hello All

I have a workbook calendar where I am using the below macro entered in the February sheet to hide the 29th Feb date column (AD) based on the value in cell A5. The A5 cell value is controlled by a formula (Cell A5 value of 1 = hide the column & Cell A5 value of "Leap Year" = show the column).

Everything works as it should however the macro will not run until I select a cell on the February worksheet. Is there a way to make the macro run as soon as the A5 value changes?

Thanks in advance.

Private Sub Worksheet_selectionchange(ByVal Target As Range)
If Sheets("February").Range("A5").Value = 1 Then
Sheets("February").Columns("AD").EntireColumn.Hidden = True
Else
Sheets("February").Columns("AD").EntireColumn.Hidden = False
End If


End Sub

 

[gallen]

Need to check in the Change event of the worksheet. Not selection change

Private Sub Worksheet_Change(ByVal Target As Range)
    'check if user has changed Cell A5
    If Target.Address = Range("A5").Address Then
        If Sheets("February").Range("A5").Value = 1 Then
            Sheets("February").Columns("AD").EntireColumn.Hidden = True
        Else
            Sheets("February").Columns("AD").EntireColumn.Hidden = False
        End If
    End If
End Sub

 

[si_1970]

I have got it to work now. Strange I could have sworn I tried the below before and it did not work.

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If [A5].Value = "1" Then
Sheets("February").Columns("AD").EntireColumn.Hidden = True
Else
Sheets("February").Columns("AD").EntireColumn.Hidden = False
End If
Application.EnableEvents = True
End Sub