Editing an alphanumeric value

[subbby]

I Have a list of Alphanumeric values in a column (eg. a110a50, a011a50, b333b7, e034e47)
What I want to do is :

1. the VBA should ignore the first letter and copy the rest to the adjacent cell and BOLD the remaninder letter.
2. If, after ignoring the the first letter, the first digit is a zero, ignore that as well.)

Eg:

• if the aphanumeric value is a110a50 my desired result should be 110A50
• if the alphanumeric value is a011a50 , my desired output is 11A50.

I tried :

I tried working on this code. This completely removes the alphabet from an alphanumeric

[Jakobshavn]

Select the cells and run this small macro:

Please Login or Register  to view this content.

[subbby]

Thanks. That worked..

[subbby]

Select the cells and run this small macro:

Forgot to mention… that filename also has its extension behind it. eg. a110a50 , in the excel is a110a50.dwg and a011a50 in the excel is a011a50.dwf.

When I run this code, it writes it as 110A50.DWG and 11A50.DWF

Is there a way I could get rid of the extension ? I mean the .DWG and the .DWF too ?

Thanks