find largest column width and ...

[S S]

Hello

i would like to find the largest column width in a range e.g. "A1:A20" and then set all the columns of this range to this largest width. how can i do that?

Thanx.


Submitted via EggHeadCafe - Software Developer Portal of Choice
Crypto Obfuscator for .NET - Product Review
http://www.eggheadcafe.com/tutorial...f8-f5fd987fafb1/crypto-obfuscator-for-ne.aspx

 

[Chip Pearson]

Try some code like

Sub AAA()
Dim MaxWidth As Double
Dim R As Range
Dim RR As Range

Set RR = Range("A1:K10")
For Each R In RR
If R.ColumnWidth > MaxWidth Then
MaxWidth = R.ColumnWidth
End If
Next R
RR.EntireColumn.ColumnWidth = MaxWidth
End Sub

Cordially,
Chip Pearson
Microsoft MVP 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
[email on web site]

 

[Gary''s Student]

Your posted range has only one column. For columns A-Z, try:

Sub demo()
Dim cw As Integer, i As Integer, wdth As Integer
cv = 0
For i = 1 To 26
wdth = Columns(i).ColumnWidth
If wdth > cw Then
cw = wdth
End If
Next
Columns("A:Z").ColumnWidth = cw
End Sub

 

[helene and gabor]

Hello,
with Excel 2007 you can frame in the region and click:
Format
Autofit column width

Hth

Gabor Sebo





in message news:[email protected]...

 

[Gord Dibben]

How can you do that?

With great difficulty.

A1:A20 is a single column.


Gord Dibben MS Excel MVP