Setting Cloumn Width

[Rocky0201]

I have defined in a worksheet (Lists) column (K) and rows 31 through 38 contaning values: 9.3, 8.3, 11.3, etc... I need to be able to loop through this table using the values to set column widths in the worksheet "Report" starting at column A.

I greatly appreciate help with this macro.

Thanks...

 

[Domski]

Try:

Sub test()
Dim myRange As Range, myCol As Integer
myCol = 1
For Each myRange In Sheets("Lists").Range("K1:K38")
Sheets("Report").Columns(myCol).ColumnWidth = myRange
myCol = myCol + 1
Next myRange
End Sub

Dom

 

[Rocky0201]

Works like a charm!!! Thanks Dom...