How get macro to type into cells that user manually selects

[Legacy 374719]

Hi, I made a simple macro, with recording, where I select the cell, press macro it will change background , change the don't colour and type the word I need, however if I select manually the range of cells where I'd like the same acronym to be typed, it just typos it into first cell and not into any other, though it changes the background for all. Any help online seems to be pointing towards predefined usr selected range, but I need it to perform the action on cells that I manually select.

It's a to mark peoples availability so people would constantly select different dates. So it needs to be based on something that user selects (not fixed cells) and fills into all selected cells.

Thank you

 

[Norie]

If you are working with multiple cells then it could be that you'll need some sort of loop.

Can you post the code you have?

 

[Legacy 374719]

Hi Norie

Here's the code

Sub Blue()
'
' Blue Macro
'

'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "PY"

End Sub

I can see that it types PY into active cell, but I need it to type it into all cells that user has selected. which is dynamic as people mark different days for themselves and would just click the button to fill the selected cells with the PY.

 

[Norie]

All you should need to so is change ActiveCell to Selection.

 

[Legacy 374719]

That worked! Perfect, much simpler than I thought.

Thank you Norie! much appriciated