Selecting cells for code

[Matt_16]

Right, I have this code that just tells the spreadsheet to turn the cel
blue, and put the value £2 in it:

Sub nseat()
'
' nseat Macro
' Macro recorded 14/11/2002 by Lambourn
'
' Keyboard Shortcut: Ctrl+n
'
With Selection.Interior
.ColorIndex = 41
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
ActiveCell.FormulaR1C1 = "$2 "
Range("K11").Select
End Sub

The problem is that this code can be used in any cell in the sheet
whereas I would like to have it so that it can just be used in cell
C13-R10 and D9-Q9. How would I edit the code to enable me to do that?

Thank

 

[JE McGimpsey]

One way:

Public Sub nseat()
Dim rSelect As Range
Set rSelect = Intersect(Selection, Range("C13:R10,D9:Q9"))
If Not rSelect Is Nothing Then
With rSelect.Interior
.ColorIndex = 41
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
rSelect.Value = "$2"
End If
End Sub