Fix column with multiple improper date formats

[NewYears1978]

I have a huge report that gets generated that has a column of dates. However some of the dates are text strings and need to be corrected. THere are three different ways the date appears:

9/20/2021
Mon Jun 14 at 6:00am America/Chicago
Mon Aug 2

I am trying to write a VBA macro that corrects all of them.
I am using

Please Login or Register  to view this content.

This is close but it leaves me with

9/20/2021
Mon Jun 14
8/2/2021

For some reason the middle one is still not being seen as a date. Even if I run the macro again it doesn't correct that middle one.

What am I missing? - it should correct them automatically but it is not. Even if I rerun the macro without the "at" replace part it doesn't correct the one incorrect one. I know this has to do with it being text and not a number (tested using ISNUMBER) but how to correct?

[bsalv]

Please Login or Register  to view this content.

[AlphaFrog]

For Each cel In Range("B2").End(xlDown)

Your code only loops through one cell; the last one. Try this...

Please Login or Register  to view this content.

[NewYears1978]

Your code only loops through one cell; the last one. Try this...

Please Login or Register  to view this content.

Yeah, lol. I am stupid. Rookie mistake and funny I didn't catch it even after reading it over and over. It works now

Please Login or Register  to view this content.

Diff solution but always works Thanks to you both!

This is literally my favorite forum on the web, all time, without question. I always get help and constantly learn new things here! Love it!