Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
[A1] = "Costs " & Format(WorksheetFunction.EoMonth(Now(), -1), "[$-409]mmm yyyy")
With Range("A1").Characters(6, Len([A1]) - 5).Font
.Bold = True
.FontStyle = "Gras"
.Color = RGB(60, 60, 250)
.Size = 14
End With
End Sub