Ik heb de volgende VB-code gemaakt om de header-rij te wijzigen wanneer een cel binnen een bereik (B2:B1500) omdat datumwaarden boven 12/28/2014 de header een waarschuwing zouden laten zien dat deze data, in een timesheet, naar Week1 van 2015 zouden gaan:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an Action when they are changed.
Set KeyCells = Range("B2:B1500")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Change the height of the header row when one of the defined cdlls is changed
Rows("1:1").EntireRow.AutoFit
End If
End Sub