There, I think I got the bugs out:
Sub date1()
Dim c As Range, sNF
With Sheet1
For Each c In Range("J2:J" & .cells(Rows.Count, 10).End(xlUp).Row)
If c.Value <> "" Then
c.Value = c.Value
sNF = c.NumberFormat
c.NumberFormat = "@"
Select Case sNF
Case "dd-mmm-yyyy hh:mi:ss": c.Value = Format(c.Value, "yyyy/mm/dd")
Case "dd-mmm-yyyy": c.Value = Format(c.Value, "yyyy/mm/dd")
Case "d-mmm-yy": c.Value = Format(c.Value, "yyyy/mm/dd")
Case "mmm-yyyy": c.Value = Format(c.Value, "yyyy/mm/--")
Case "General": c.Value = c.Value & "/--/--"
End Select
End If
Next c
End With
End Sub
Bookmarks