add pixels after autofit

[still learning]

Hi
Can I add to this macro to add 10 pixels after it autofits the column?
I have this on the Quick Access Toolbar for all workbooks

Sub autosize()
    Selection.Columns.AutoFit
End Sub

I want to be able to increase the width 10 pixels after the macro runs

mike

 

[Zot]

See if this helps.

How to set Excel column widths to a certain number of pixels?

I have the following data set on a worksheet: SheetName|ColumnIndex|Pixels ---------+-----------+------ abc |1 |50 abc |2 |150 def |1 |125 For each sheet...

stackoverflow.com

 

[mohadin]

Hi
What about

Sub autosize()
    Selection.Columns.AutoFit
    Selection.ColumnWidth = 10 + Selection.Columns.Width
End Sub

 

[still learning]

Hi Zot
I looked at the link and after changing the the width size, I was able to get what wanted
Thank You

Hi mohadin
It change the width to much. I use different numbers and couldn't get to work. I gave up at
.000000000000000000001 + Selection.Columns.Width
that increased to to about 7.5 times the width
Thanks for trying

mike

 

[Zot]

Hi Zot
I looked at the link and after changing the the width size, I was able to get what wanted
Thank You

Hi mohadin
It change the width to much. I use different numbers and couldn't get to work. I gave up at
.000000000000000000001 + Selection.Columns.Width
that increased to to about 7.5 times the width
Thanks for trying

mike

Glad the link helped