I have a column of numbers that I need to convert to dates, such as:

7252003
11152001
3312002

Some have length of 7, and some are 8. I can do this manually by
adding "0" to the 7 length numbers, then Data, Text to Columns/Date.
Is there a way to do this (faster) in a macro?

Thanks,
Marc