Farve fanebladet efter hvilken uge jeg er i netop nu.

du kan følge denne

https://analysistabs.com/excel-vba/change-color-sheet-tabs/

og så sætte wks.sheetname = et kontrol felt.

Sæt denne makro ind i projektmappen, så vil det aktuelle faneblad blive farvet rødt.

Private Sub Workbook_Open()
Dim WS As Worksheet
Dim UgeNu As String
UgeNu = "Uge " & WorksheetFunction.WeekNum(Now(), 21)
For Each WS In ThisWorkbook.Worksheets
If WS.Name = UgeNu Then
WS.Tab.ColorIndex = 3
Else
WS.Tab.ColorIndex = xlColorIndexNone
End If
Next
End Sub

1000 tak Jens48

den sad lige i skabet

God weekend

KW