Thanks for the response

I meant to say every third column. I figured out a way.

z = 3
For p = 1 To amount
Worksheets("sheet1").Activate
Worksheets("sheet1").Columns(Z).ColumnWidth = 3.59
Z = Z + 3
Next p

Jay
-----Original Message-----
If the other rows (not every third) are not empty, you
could use F5, Special
Cells, Blanks. to select the empty cells.

--
Regards,

Juan Pablo González

"Jay" wrote in
message
...
I need to adjust the width of every third row (empty)
in a
large range. Thanks in advance

Jay


.