Are you looking for
Code:
Activecell.EntireColumn.Autofit
? This will adjust the width of the column. If this is not what you are looking for, can you clarify with an example?