Are all the dates in one column? If so which column?
Hello KjBox 
@ yankiessg
You seem to have stored Text (and not Values) in your cells ...
If that is the case, you could test following
Sub TestSplitDate()
Dim arr, mymonth, myyear, myday
arr = Split(ActiveCell, ", ")
mymonth = Split(arr(1), " ")
myday = Split(mymonth(1), " ")
myyear = Split(arr(2), " ")
ActiveCell.Offset(0, 2) = Format(Month(DateValue("01/" & mymonth(0) & "/2020")), "00") & "/" & myday(0) & "/" & myyear(0)
End SubHope this will help
I noticed that too, Carim.
Assuming your data starts in Row 2 where Row 1 is a header row, if the dates are in Column A then this will convert them all to "mm/dd/yyyy"
Sub ConvertDates()
Dim x, i As Long
With ActiveSheet
x = .Cells(1).CurrentRegion.Columns(1)
For i = 2 To UBound(x, 1)
x(i, 1) = Format(DateSerial( _
Split(Split(x(i, 1), ", ")(2))(0), _
Month(DateValue("01 " & Split(Split(x(i, 1), ", ")(1))(0) & " 2020")), _
Split(Split(x(i, 1), ", ")(1))(1)), _
"mm/dd/yyyy")
Next
.Cells(1).CurrentRegion.Columns(1) = x
.Columns(1).AutoFit
End With
End Subslight change needed
Sub ConvertDates()
Dim x, i As Long
With ActiveSheet
x = .Cells(1).CurrentRegion.Columns(1)
For i = 2 To UBound(x, 1)
x(i, 1) = Format(DateSerial( _
Split(Split(x(i, 1), ", ")(2))(0), _
Trim(Month(DateValue("01 " & Split(Split(x(i, 1), ", ")(1))(0) & " 2020"))), _
Split(Split(x(i, 1), ", ")(1))(1)), _
"mm/dd/yyyy")
Next
.Cells(1).CurrentRegion.Columns(1) = x
.Columns(1).AutoFit
End With
End SubDon’t have an account yet? Register yourself now and be a part of our community!