Deleting cell contents starting with numbers VBA

[sjk1193]

I need a way to loop through cells in a specific column (eg. A) and check if they start with 5 or more numbers. If so I need to delete everything after the numbers end.

So for example it will start like this

4165460 ABC

546445 SDF

4654843354 FHD

ABD 132

1254 AHD

And need it to end up like this

4165460

546445

4654843354

ABD 132

1254 AHD

[Akuini]

Try:

Please Login or Register  to view this content.

[Rick Rothstein]

I need a way to loop through cells in a specific column (eg. A) and check if they start with 5 or more numbers.

Is it ever possible that one or more of your 5+ digit numbers will start with a zero? If so, do you need to keep that leading zero?

[sjk1193]

It may happen, just looking for the most robust solution, thanks

[Rick Rothstein]

...just looking for the most robust solution

This macro will do what you want even if there is no space between the leading number and the text following it and it preserve leading zeros too...

Please Login or Register  to view this content.