CONVERTIR FECHA QUE NO SON RECONOCIDAS COMO 04-ENE-14 a 04/01/14

  Range("B1:B6000").Select
 


Dim cell As Range
For Each cell In Selection
If cell.Value <> "" And cell.Offset(0, 4).Value <> "" Then
'Dim u As String
'    u = ActiveCell.Value
    cell.Value = Format(cell, "MM/DD/YYYY")
End If
Next