Speed up a macro...

[kokapelly]

Hi all,

So below is the code i use to convert column B from yyyymmdd to mm/dd/yyyy:

For Each C In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    If Not IsDate(C) Then
    C.Value = DateSerial(Left(C.Value, 4), Mid(C.Value, 5, 2), Right(C.Value, 2))
    C.NumberFormat = "mm/dd/yyyy"
    End If
Next C

I have to do this for 6000 lines and this is taking way to long. I have "Application.ScreenUpdating = False" at the start is there anything else i can do to speed it up?

Thank you