hide columns based on day of week

[tintin1012000]

Hi all,

I want a macro to hide columns based on the day of the week

If its Mon I want to hide all Columns B:S
If its Tue hide E:S
If Wed hide H:S
If Thur hide K:S
If Fri hide N:S

Thanks all

 

[Snakehips]

tintin1012000,

Perhaps this....

Sub Day_Hide()
Application.ScreenUpdating = False
Range("B:S").EntireColumn.Hidden = False
Select Case Weekday(Date, vbMonday)
Case 1
Range("B:S").EntireColumn.Hidden = True
Case 2
Range("E:S").EntireColumn.Hidden = True
Case 3
Range("H:S").EntireColumn.Hidden = True
Case 4
Range("K:S").EntireColumn.Hidden = True
Case 5
Range("N:S").EntireColumn.Hidden = True
End Select
End Sub

Hope that helps.