Convert worksheet string name to date format in cell

  • Thread starter Thread starter Sabosis
  • Start date Start date
S

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
 
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
 
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
Click to expand...

Dave, thanks for the help!
 
Back
Top