Macro that deletes empty columns but also removes leading zeros

Try;

Please Login or Register  to view this content.

Ok, I have formatted the columns with zeros as "Text" and run the code and it works. Ok, there are a lot of columns that require formatting as "Text" so I ran a macro that basically formats certain columns as "Text" after copying and pasting the data in to the worksheet. I then run the macro as above and all columns disappear with the exception of A and B.

Here is the copy, paste and format macro

Please Login or Register  to view this content.

Ok not pretty but it works. The data copies,pastes and formats. Now, when I run the other macro

Please Login or Register  to view this content.

the macro no longer works. Any thoughts? Could it be because I have formatted several columns (E,F, K,L, Q,R, W,X, AC,AD, AI,AJ, AO,AP, AU,AV, BA,BB, BG,BH, BM,BN, BS,BT, BY,BZ, CE,CF, CK,CL, CQ,CR, CW,CX, DC,DD, DI,DJ, DO,DP, DU,DV, EA,EB, EG,EH, EM,EN, ES, ET) as "Text" and they are causing the problem? I cannot see why this would be.

Thoughts?

Tony

Since posting I have proved that the other "Text" formatted columns are indeed "blocking" the deletion of the empty columns. So I have to find a way of making the macro "ignore" empty "Text" formatted columns.