How to find the largest column width and change a range of columns to that width?

[SuperMrRudolf]

Hi, i'm using an event: Target.EntireColumn.AutoFit, but after i've done the work I want a VBA code to find the largest column width and then change the range of columns to that specific width.
PlEaSe HeLp

 

[GTO]

By simple example, using Sheet1's module in a blank/new wb...

<font face=Courier New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN><br>  <br><SPAN style="color:#00007F">Sub</SPAN> setup()<br><SPAN style="color:#00007F">Dim</SPAN> n <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>  <br>  <SPAN style="color:#00007F">For</SPAN> n = 1 <SPAN style="color:#00007F">To</SPAN> 7<br>    Me.Columns.ColumnWidth = Array(8.43, 11, 2, 22, 31, 3, 3)(n - 1)<br>  <SPAN style="color:#00007F">Next</SPAN><br>  <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br>  <br><SPAN style="color:#00007F">Sub</SPAN> example()<br><SPAN style="color:#00007F">Dim</SPAN> n <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br><SPAN style="color:#00007F">Dim</SPAN> cw <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Double</SPAN><br>  <br>  <SPAN style="color:#00007F">For</SPAN> n = 1 <SPAN style="color:#00007F">To</SPAN> 7<br>    cw = Application.Max(cw, Me.Columns.ColumnWidth)<br>  <SPAN style="color:#00007F">Next</SPAN><br>  <br>  <SPAN style="color:#00007F">For</SPAN> n = 1 <SPAN style="color:#00007F">To</SPAN> 7<br>    Me.Columns.ColumnWidth = cw<br>  <SPAN style="color:#00007F">Next</SPAN><br>  <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Hope that helps,

Mark