Creé el siguiente código VB para redimensionar la fila del encabezado cuando una celda dentro de un rango (B2:B1500) porque los valores de las fechas por encima del 28/12/2014 harían que el encabezado mostrara una advertencia de que estas fechas, en una hoja de horas, irían a la Semana 1 de 2015:
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