Column Size 1

[simoncpage]

Is there any way of autosizing a table and making all the columns widths equal to the largest column that autosize finds??

Any help would be very useful

 

[xlbo]

not without code.....but here is the code
Select the columns then run. Obviously, if you are going to do it on 1 table all the time, the variables can be hardcoded
Sub MaxcolSize()
Widest = 0
Selection.EntireColumn.AutoFit
For i = 1 To Selection.Columns.Count
tWidth = Selection.Columns(i).ColumnWidth
If tWidth > Widest Then
Widest = tWidth
Else
End If
Next i
Selection.ColumnWidth = Widest
End Sub

HTH
Geoff