looping cells

[everytime]

Hi,

I have a range object and I would like to be able to loop through all the cells and change certain properties of them IF there text say a certain thing. Can someone advise me how to do this? Might look something like this but how do I reference a CELL (refereed to below as c)?

Dim Area As range

Set Area = Worksheets("test&quot.range("D11:X22&quot

For Each c In Area
If c.Value > limit Then
c.Interior.ColorIndex = 27
End If
Next c


Many thanks for any help

Everytime

 

[JustinEzequiel]

Dim oRange As Range
Dim oCell As Range

Set oRange = Worksheets("Sheet1&quot.Range("A9:B12&quot
For Each oCell In oRange.Cells
Debug.Print oCell.Text
Next oCell