Delete Date data macro

[Guest]

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

 

[Bob Phillips]

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)

 

[Guest]

Bob,
How would I use this code? Would I put it in a Macro?

 

[Myrna Larson]

Hi, Bob:

His data is 8/9/04 1:25:43 PM EDT

The final "EDT" means that neither Excel or VB recognize it as a date.
Maybe this will work

For Each cell In Selection
With Cell
X = .Value
i = Instr(X, " ")
If i > 0 Then
.Value = CDate(Left$(X, i - 1))
.NumberFormat = "m/d/yy"
End If
End With
Next cell