Spriglet #9: Conditionally hide columns in Excel using VB

I have time tracking worksheet that I use at work. It looks something like this:

Since I don’t work on Saturday or Sunday, I’d like to hide all columns that have a date that’s a Saturday or Sunday.

Here’s a little VB macro that will do the trick:

Sub header()

Dim eCol As Integer
Dim i As Integer

eCol = Cells(1, Columns.Count).End(xlToLeft).Column

For i = 1 To eCol

With Cells(1, i)

If IsDate(.Value) Then
If (Weekday(.Value) = vbSunday) Or _
(Weekday(.Value) = vbSaturday) Then
.EntireColumn.Hidden = True
End If
End If

End With

Next i

End Sub

h/t Rowan