Hi,
This worked for me, after selecting the range you want to change.
Sub test()
Dim Rng As Range
For Each Rng In Selection
If IsNumeric(Rng) Then
Rng.NumberFormat = "General"
Else
On Error Resume Next
Rng = DateValue(Rng)
On Error GoTo 0
Rng.NumberFormat = "General"
End If
Next Rng
End Sub
Bye,
Jay