Re Name a Worksheet as a Date Format

[John D O'Connor]

Using a Macron how can you rename a Worksheet using a Date format. I have a
Macro that re-names a new Worksheet with whatever Date is in a certain cell,
however the worksheet re-names not in Date format but in numeric format.

Anyone suggest the code that I should insert? My current code is as below

strSheetName = Worksheets(ActiveSheet.Name).Range("a8")

Where A8 is the document date

Thanks

John

 

[Ron de Bruin]

Hi John

Use the Format function

ActiveSheet.Name = Format(Range("B1"), "dd-mm-yy")

ActiveSheet.Name = Format(Now, "dd-mm-yy h-mm-ss")

 

[Frank Kabel]

Hi John
try
strSheetName =
Format(Worksheets(ActiveSheet.Name).Range("a8"),"mmddyyyy")
apply the format code to your needs

 

[John D O'Connor]

Thanks Ron, works a treat

Rgds

John

Hi John

Use the Format function

ActiveSheet.Name = Format(Range("B1"), "dd-mm-yy")

ActiveSheet.Name = Format(Now, "dd-mm-yy h-mm-ss")