Say you have a column of text values that should be dates, for example A1:
Thu 21st June 2007
First enter the following UDF:
Function date_it(r As Range) As Date
Dim v As String
v = r.Value
s = Split(v, " ")
n = Len(s(1)) - 2
v = Left(s(1), n) & " " & s(2) & " " & s(3)
date_it = DateValue(v)
End Function
Next format another cell as Date and enter:
=date_it(A1) to display:
6/21/2007
This will be a "real" date.

Signature
Gary''s Student - gsnu2007
> I have copied and pasted a word table into excel which was a pain in
> itself. The date format in word was Thu 21st June 2007. But the
[quoted text clipped - 7 lines]
> does not make a difference, the only way it shacges is if I manually
> type the date in. Is there a quicker way?