Convert worksheet string name to date format in cell

[Sabosis]

Hello-

I have a workbook that will always have a sheet name such as 082509. I
want to have cell J2 take that string and convert to a MM/DD/YY
format. I tried the following, but it did not work:

Range("J2").Select
ActiveCell.FormulaR1C1 = DateValue(Format(Range(Worksheet
(1)).Value, "00/00/00"))

Any ideas?

Thanks

 

[Dave Peterson]

maybe...

I'd use:

With ActiveSheet.Range("J2")
.NumberFormat = "mm/dd/yy" 'whatever you want
.Value = DateValue(Format(Worksheets(1).Name, "00/00/00"))
End With

 

[Sabosis]

maybe...

I'd use:

With ActiveSheet.Range("J2")
    .NumberFormat = "mm/dd/yy" 'whatever you want
    .Value = DateValue(Format(Worksheets(1).Name, "00/00/00"))
End With

Dave, thanks for the help!