Correct, the issue is down to the use of a Table/List which prevents the headers from containing formulae.
How to circumvent whilst leaving both List & Header row in place ?
Well possibly use VBA change event such that as the reporting date cell is altered so VBA is used to update the static dates in the header row, for ex. using your Example 2:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngMonth As Long
On Error GoTo ExitHere
If Target.Count > 1 Or Target.Address <> "$C$15" Then Exit Sub
Application.EnableEvents = False
If IsDate(Target.Value) Then
For lngMonth = 0 To 11 Step 1
Cells(17, 3 + lngMonth).Value = DateAdd("m", lngMonth, Target.Value)
Next lngMonth
End If
ExitHere:
Application.EnableEvents = True
End Sub
Ungainly but it might work.
Bookmarks