Rename active sheet

[lumaduc]

I am trying to rename the active sheet from a cell in the sheet. Th
cell has a date. The cell has a date format of mm-dd-yy which is how
want the sheet to be renamed. When using Selection.Copy the dat
format is mm/dd/yy. So when i attempt to rename the sheet it cannot b
renamed since the date format has special characters.

Selection.Copy
ActiveSheet.Select
'ActiveSheet.Name = "01-05-04"
ActiveSheet.Name = Selection

ActiveSheet.Name = "01-05-04" is the correct format but cannot be use
since it will be in a Loop. Using Selection formats the date a
mm/dd/yy.

Is there a way to format Selection as mm-dd-yy

 

[Ron de Bruin]

Try this

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