Change Background Color of Multiple Ranges

[Phil Hageman]

Need macro to change background color of four ranges (Q5:Q7, T5:T7, Q32:Q38, T32:T34) to RGB 250,250,200.

 

[lrobbo314]

How about this?

Sub crng()
Dim r As Range
Set r = Range("Q5:Q7, T5:T7, Q32:Q38, T32:T34")
r.Interior.Color = RGB(250, 250, 200)
End Sub

 

[Rick Rothstein]

How about this?

Sub crng()
Dim r As Range
Set r = Range("Q5:Q7, T5:T7, Q32:Q38, T32:T34")
r.Interior.Color = RGB(250, 250, 200)
End Sub

Or just do it directly...

[table="width: 500"]
[tr]
	[td]Sub crng()
  Range("Q5:Q7,T5:T7,Q32:Q38,T32:T34").Interior.Color = RGB(250, 250, 200)
End Sub[/td]
[/tr]
[/table]

 

[Phil Hageman]

Hi IROBBO314 and Rick - these both worked. Thank you very much for the help - appreciated! R/Phil