hide column with date condition

[faizee]

I want to hide automatically

Sep-17
1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	#	21	#	#	#	25	#	27	#	#	#	31

<colgroup><col style="text-align: center;"><col span="30" style="text-align: center;"></colgroup><tbody>
</tbody>

the sat and sunday of this table,
when i change the month.. so the columns does not show sat and sunday

please help

 

[SteveO59L]

something along the lines of

Dim c As Range, rng
Set rng = Range("f5:aj5")
For Each c In rng
If Weekday(c, 2) > 5 Then
c.EntireColumn.Hidden = True
Else
c.EntireColumn.Hidden = False
End If
Next c