Add Today’s Date To A Range And Format It

With Range("A1")

.Value = Date 'use today's date

'format it, you can also use yyyy for a four digit year.

.NumberFormat = "mm/dd/yy"

End With