in a cell

=DATE(LEFT(A1,4),MID(A1,5,2), MID(A1,7,2))

or VBA

Sub test()
Dim v
Dim dt As Date
ActiveCell = 20081012

v = ActiveCell.Value
dt = DateSerial(Left$(v, 4), Mid(v, 5, 2), Mid(v, 7, 2))
MsgBox dt

End Sub


Regards,
Peter T


"Arne Hegefors" wrote in message
...
Hi! I am trying to convert a string to a date. however i get Error nr6
"spill".

in cell A1 I have a date written like this "20081012"

Sub anders()
Dim a As Long
a = Range("a1").Value
b = CDate(a)
End Sub


I get the error when trying to convert to date, pls hepl