Opgave: macr001 - Achtergrondkleur

Niveau: 2

Neem een macro op die de actieve cel een grijze achtergrondkleur geeft.

Antwoord

Een mogelijke oplossing.

Sub Achtergrond_Grijs()
'
' Lichtgrijze achtergrond voor cel
'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.14996795556505
        .PatternTintAndShade = 0
    End With
End Sub