apply NumberFormat

[PcMax]

Hello

Thanks for the suggestions, here is an example code.
The formatting used automatically adapts to the width of the column

Option Explicit

Sub Test()
    Dim K       As Long
    Dim DD      As Long
    For K = 0 To 12
          DD = Date + K
          Cells(K + 2, 1).Value = UCase(Format(DD, "dddd"))
          Cells(K + 2, 1).NumberFormat = "#,##0_-;-#,##0_-;;   @* _- """ & Day(DD) & """    "
    Next K
End Sub