Thursday, 13 November 2014

Changing the cell colour

Sub ChangeColour()

    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With


End Sub

No comments:

Post a Comment