Hi Merlin and welcome to the forum.
It sounds like you want the following. Change the value in cell A1 to the week number you want to view and see what happens. The code looks like:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Dim LastCol As Double
Dim ColCtr As Double
Columns("A:NA").EntireColumn.Hidden = False
LastCol = Cells(2, Columns.Count).End(xlToLeft).Column
For ColCtr = 2 To LastCol
If Cells(2, ColCtr) = Cells(1, "A") Then
Cells(2, ColCtr).EntireColumn.Hidden = False
Else
Cells(2, ColCtr).EntireColumn.Hidden = True
End If
Next ColCtr
End If
End Sub
Bookmarks