Hide column based on cell value

[olympiac]

I am using the code below to hide a column based on a cell value.
I need to repeat this macro from column C to column AF.
How do I need to modify it to avoid copying this code for each colum?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("C5").Value = 0 Then
Columns("C").EntireColumn.Hidden = True
Else
Columns("C").EntireColumn.Hidden = False
End If
End Sub


Thanks

 

[Rick Rothstein]

I used the below to macro to do what I needed, but need this to run every time Cells C3, C4, and C5 change.

Sub HideColumns()
Columns("G:FA").Select
Selection.EntireColumn.Hidden = False
Application.ScreenUpdating = False
For Each cll In Range("E1:FA1")
If (cll.Value = 0) And (cll.Value <> "") Then cll.EntireColumn.Hidden = True
Next cll
Application.ScreenUpdating = True
Range("C4").Select
End Sub

A couple of questions...

1) Your loop can hide Columns E and F (second red highlighted text) in addition to Columns G:FA, however you only unhide Columns G:FA (first red highlighted text) at the beginning of your code... does that mean Column E and F will never be shown again once it becomes hidden, of was that "G" supposed to have been "E"?

2) Are you selecting cell C4 at the end because you need that specific cell selected or are you selecting it in order to unselect the columns you selected at the beginning of your code?