Select every 5th column

[GreenyMcDuff]

Hi guys,

I have a spreadsheet (Excel 2003) and need to alter the column widths.

I need it so that from column 4 onwards, every 5th column is selected and made 158pixels wide

Also I need all the columns in between selected and made 34 pixels wide.

I thought it might be possible to do it using Arithmetic Pregrssions???

So,
Columns: 4,9,14,19,...,5n-1 need to be selected and made 158 pixels wide

Columns: 5,6,7,8,10,11,12,13,15,16,...,5n+3 need to be selected and made 34 pixels wide

I hope this makes sense

Cheers

Chris

 

[machopicho]

Try:

Sub test()
For i = 4 To 100 'substitute 100 with your number
    Rows(i).RowHeight = 34
Next
For j = 4 To 100 Step 5 'substitute 100 with your number
Rows(j).RowHeight = 158
Next
End Sub