Hallo Teresa

Bezug auf alle Worksheets

Spalte C erste Kalenderwoche etc.

Ohne B5

Einzufügen

Alt+F11 / Projektexplorer / DieseArbeitsmappe

Speichern / Neu Öffnen

Private Sub Workbook_Open()
 Dim DINKW As Integer, Wks As Integer
 DINKW = DatePart("ww", Date, vbUseSystemDayOfWeek, vbUseSystem)
 If DINKW > 1 Then
  For Wks = 1 To Worksheets.Count
   With Worksheets(Wks)
   .Range(.Cells(1, 3), .Cells(1, 2 + DINKW - 1)).EntireColumn.Hidden = True
   End With
  Next Wks
 End If
End Sub

Gruß Michael