Multiple cell entry: macro help

[Chop Chop]

Hi, I was wondering if someone could help me with a macro.
I added some buttons that add letters to the active cell. If I click the H button, for instance, it would add H to the active cell.
___________
Sub H()
'
' H Macro
'

'
ActiveCell.Value = "A"
With Selection.Font
.Color = -65536
.TintAndShade = 0
End With
End Sub
__________
What I would like for it to do is add it to all the highlighted cells. This way I can quickly Ctrl click the specified cells (eg. B12, C5, D8) and they would all be filled in at once using the button. I was wondering if someone could help modify the macro for that?

Also another question. Is there anyway to make the button stay on the screen. Rather than having several buttons, can I have them scroll down like they would if they were a frozen pane?

Thanks for your time.

 

[VoG]

Try

Sub H()
'
' H Macro
'

'
    With Selection
        .Value = "A"
        With .Font
            .Color = -65536
            .TintAndShade = 0
        End With
    End With
End Sub

 

[Chop Chop]

Try

Sub H()
'
' H Macro
'

'
    With Selection
        .Value = "A"
        With .Font
            .Color = -65536
            .TintAndShade = 0
        End With
    End With
End Sub

Cheers VoG! Works like a charm