View Single Post
 
Old 04-17-2012, 04:46 AM
tinfanide tinfanide is offline Windows 7 64bit Office 2010 32bit
Expert
 
Join Date: Aug 2011
Posts: 312
tinfanide is on a distinguished road
Default

These make it at one go.

VBA:
Code:
ActiveCell.Value = UCase(WorksheetFunction.Text(Date, "yyyy/mm/dd ddd"))
Formula:
Code:
=UPPER(TEXT(TODAY(),"yyyy/mm/dd ddd"))
Reply With Quote