verschillende cellen kleuren

[bowlingman]

Hallo,
Ik heb op een frm buttons geplaatst om verschillende cellen te kleuren met de volgende code

    Range("D4").Interior.Color = RGB(0, 0, 204)
    Range("L4").Interior.Color = RGB(0, 0, 204)
    Range("U4").Interior.Color = RGB(0, 0, 204)
    Range("AC4").Interior.Color = RGB(0, 0, 204)
    Range("AL4").Interior.Color = RGB(0, 0, 204)
    Range("AT4").Interior.Color = RGB(0, 0, 204)
    Range("BC4").Interior.Color = RGB(0, 0, 204)
    Range("BK4").Interior.Color = RGB(0, 0, 204)

Kan dit eenvoudiger in één regel of kan dit enkel op de manier zoals ik het heb gedaan.

Grtjs.
Armand

 

[bowlingman]

Heb het gevonden

Range("D4,L4,U4,AC4,AL4,AT4,BC4,BK4").Interior.Color = RGB(0, 0, 204)

Grtjs.
Armand