How to automate VBA Columnwidth using Named Ranges fields

[Excel987]

I am trying to automate changing the width of specific columns by passing data to a vba formula to avoid opening up the vba to make the changes.

I have two Named Ranges fields, the first is called “I_data_col”, which has the column ranges like “B:B” that is identified for the width change. The second is called “I_data_width”, which has the column width like “10” that will be used to change the column width.

I have a simple vba code to automate the process (see below), but I am getting a “Mismatch Error (Run-time error 13)”. How do I fix the mismatch error? Thanks!

Please Login or Register  to view this content.

[Artik]

If both named ranges are single-cell, it seems that such a macro will suffice:

Please Login or Register  to view this content.

If both named ranges are multicellular, such a macro:

Please Login or Register  to view this content.

Artik

[TMS]

Untested, but try:

Please Login or Register  to view this content.

[Excel987]

Thank you so much Artik for your code, it worked successfully.