Seeking to highlight constants in a range of cells

[auto.pilot]

I have the following which highlights all cells on the active sheet that are Type Constants. Instead, I'd like to specify a range of cells (B4:D13) rather than the whole sheet.

How can I do this?

Also... I would like a VBA solution, not conditional formatting.

Sub NonFormulaCells()

Dim ws As Worksheet
Dim rng As Range
Set ws = ActiveSheet

For Each rng In ws.Cells.SpecialCells(xlCellTypeConstants)

rng.Interior.ColorIndex = 36
Next rng
End Sub

Thanks in advance.

 

[mikerickson]

For Each rng In ws.Range("B4:D13").SpecialCells(xlCellTypeConstants)

 

[GWteB]

For Each rng In ws.Range("B4:D13").SpecialCells(xlCellTypeConstants)

 

[Fluff]

No need for the loop, you can do it like

   ws.Range("B4:D13").SpecialCells(xlCellTypeConstants).Interior.ColorIndex = 36

 

[auto.pilot]

Thanks!

 

[Fluff]

Glad we could help & thanks for the feedback.