ActiveCell.Value = UCase(WorksheetFunction.Text(Date, "yyyy/mm/dd ddd"))
=UPPER(TEXT(TODAY(),"yyyy/mm/dd ddd"))