I finally give up after about 12 hours. I FINALLY figured out how to hide the columns properly, or at least I think it's working properly. Any feedback / corrections is welcome.

Can anyone tell me how to do this for all the worksheets (every day of the week) instead of just the one? I can't search anymore!

```
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wb As Workbook
Dim ws As Worksheet
Dim entireRange As Range
Set wb = ThisWorkbook
Set ws = wb.Sheets("Fri")

Set entireRange = ws.Columns("AI:AN")

    entireRange.EntireColumn.Hidden = False

Select Case ActiveSheet.Range("C4")

  Case "6"
      ws.Range("AJ:Am").EntireColumn.Hidden = True

  Case "7"
      ws.Range("AK:AM").EntireColumn.Hidden = True

  Case "8"
      ws.Range("AL:AM").EntireColumn.Hidden = True

  Case "9"
      ws.Range("AM:AM").EntireColumn.Hidden = True

  Case "5"
      entireRange.Hidden = True

End Select
End Sub

```

Appreciate your help, and all the help you've given all the other people on here enabling me to get this far. Here's the file if that helps: <https://drive.google.com/open?id=1sSGSMCAo-4JrvLF0s81MxjC4dZ78RgPb>