Updating test code

[mole999]

Time to clean code in one file

I have this for highlighting some cells in a selection

    For i = 4 To 35    'rowNumberValue
        Cells(rowNumberValue, i).Interior.ColorIndex = 37
    Next I

I would like to just select the row referenced as 4 to 35 without a loop and apply the colour and I'm struggling to figure what words to write

 

[dmt32]

Hi,
not tested but see if this does what you want.

Cells(rowNumberValue, 4).Resize(, 35).Interior.ColorIndex = 37

Dave

 

[mole999]

great, I would never have guessed that

 

[dmt32]

great, I would never have guessed that

I have plenty of blank moments myself - glad suggestion helped.

Dave