T4413_Hide Columns With Friday Saturday Dates

https://excel-egy.com/forum/t4413
---------------------------------

Sub Hide_Columns_With_Friday_Saturday_Dates()
    Dim c As Long

    Application.ScreenUpdating = False
        For c = 733 To 980 Step 8 'ABE To AKR
            If Weekday(Cells(7, c).Value) = 6 Or Weekday(Cells(7, c).Value) = 7 Then
                Columns(c).Resize(, 8).EntireColumn.Hidden = True
            End If
        Next c
    Application.ScreenUpdating = True
End Sub

Sub Show_All_Columns()
    Application.ScreenUpdating = False
        Columns("ABE:AKR").Hidden = False
    Application.ScreenUpdating = True
End Sub