Changing Color of a Selected Range of Cells Using a Macro

[mmcgregor]

I'm trying to create a macro that will change the color of the cells I've selected to green. My selection will vary depending on what cells I'm trying to color green (not a fixed range). My current code only changes one cell of my selected range:

Sub IN_PCA()
'
' IN_PCA Macro
'


'
ActiveCell.Select
Range("M243").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("H546").Select
End Sub

I've tried using "ActiveRange" in lieu of "ActiveCell" as well as other commands that would seem to be correct but have failed.

Any suggestions would be appreciated.

Thanks,

 

[JoeMo]

If you have selected the range and Mxxx is part of it before you run the macro then just remove this line:
ActiveCell.Select
Otherwise remove that line and the Range("M...").Activate line too.

 

[mmcgregor]

Thanks Joe, took them both out and it works great!

 

[JoeMo]

Thanks Joe, took them both out and it works great!

You are welcome. Thanks for your reply.