I've been attempting to format a cell while maintaining the DATE() format:
MONTHNAME DD, YYYY
using the following code:
Sub uppercase()
With Sheets("Sheet1").Range("B2")
.Value = Date
.NumberFormat = UCase(Format(Date, "mmmm ")) & UCase(Format(Date, "dd")) & ", yyyy"...