Vba experts: Need macro to fill cells !!

[bamaisgreat]

I cannot figure out how to create a macro that when you hold down say the A button then click on a cell it would fill that cell to a desired color

 

[GrandpaExcel]

Sub RED()
'
' RED Macro
'
' Keyboard Shortcut: Ctrl+Shift+Y
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

 

[bamaisgreat]

Thats not really what I had in mind. I would like to hold a button down and when I click on a cell in fill. Thanks