For Each cell In Selection
If IsDate(cell.Value) Then
cell.Value = Int(cell.Value)
cell.NumberFormat = "m/d/yy"
End If
Next cell

--

HTH

RP
(remove nothere from the email address if mailing direct)


"KAnoe" wrote in message
...
I get an excel sheet that has the date format like this:

8/9/04 1:25:43 PM EDT

How whould I set up a macro that would delet all that data after the year
number? can this be done?

THnanks