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 wrote:

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