Help for this page

Select Code to Download

Select or download this

Sub Macro1()
    Range("A1:A3").Select
...
        .TintAndShade = 0
    End With
End Sub