Deel van een kolom kleuren

[math1]

Middels onderstaande code doe ik in een sheet kolommen verbergen welke in de cel op rij 3 geen waarde bevatten.
Met deze code krijgt van de nog zichtbare kolommen elke 2e kolom een kleur.

[I]Sub CommandButton1_Click()
    
    Dim j As Byte
    Dim i As Byte
    i = 0
    
    For j = 28 To 78'kolommen AB t/m BZ
         achtergrondkleur weghalen
        Columns(j).EntireColumn.Interior.ColorIndex = 0
         lege kolommen verbergen
        ActiveSheet.Columns(j).EntireColumn.Hidden = IIf(ActiveSheet.Cells(3, j) > 0, False, True)
       ' iedere 2e zichtbare kolom kleuren
        If ActiveSheet.Columns(j).Hidden = False Then i = i + 1
        If i = 2 Then
            Columns(j).EntireColumn.Interior.ColorIndex = 37
            i = 0
        End If
    Next
End Sub[/I]

Mijn vraag is of het mogelijk is (door de rode regel aan te passen) in de zichtbare kolommen alleen de cellen van rij 4 t/m 125 een kleur te geven. Ik heb al van alles geprobeerd en gezocht maar helaas niet verder gekomen vandaar mijn vraag.

Gr. Math

 

[HSV]

Het is al vroeg, maar zoiets?

Range(Cells(4, j), Cells(125, j)).Interior.ColorIndex = 37

 

[math1]

Hallo Harry,

Aan de tijd te zien was het wel heel vroeg, denk aan je nachtrust.

Dit is wat ik zocht.

Bedankt :thumb:

Gr. Math