On Thu, 10 Jan 2008 17:08:05 -0000, "Francis Hookham"
wrote:


Col A contains "Jan"

Col B contains "1"

Col C contains "Tuesday" (which is superfluous in this operation)

We know the year is 2008



If you go the formula, copy, and paste route, use this formula

=DATEVALUE(A1&" "&B1&", 2008")

If you go the macro route, this one should work.

Sub MakeDates()

Dim rCell As Range

For Each rCell In Intersect(Sheet1.UsedRange, Sheet1.Columns(1)).Cells
rCell.Offset(0, 3).Value = _
DateValue(rCell.Value & " " & rCell.Offset(0, 1).Value & ",
2008")
Next rCell

End Sub
--
Dick Kusleika
Microsoft MVP-Excel
http://www.dailydoseofexcel.com