Tips Ok:
Code:
Cells(Num,  1).NumberFormat = "#,##0_-;-#,##0_-;;    @* _- ""23""     "

Tips Error:
How to assign the day with a variable

Code:
Cells(Num,  1).NumberFormat = "#,##0_-;-#,##0_-;;    @* _- "" & Day(DD) & ""    "
I hope this request is possible, thank you in advance