Object Required Error in UnHiding rows

I am trying to unhide all hidden rows in a range in ActiveSheet.Range("A4:A93")
For each of those hidden ranges, when it now becomes visible, I want the Cell in Column A once it's now visible / unHidden to be shaded Interior.colorIndex = 19
I'm getting an error in the [PROBLEM] lines, An Object Required Error

I've tried using Row & Cell etc..etc... but I'm still getting an error

Code:

---

For Each Row In ActiveSheet.Range("A4:A93")
    If Row.EntireRow.Hidden = True Then
                          [PROBLEM] EntireRow.Hidden = False
                              [PROBLEM] EntireRow.Interior.colorIndex = 19

---

Not tested, and done from memory

"Row" is a VBA key word, but I think the real problem was that "EntireRow" was not qualified, i.e. it should have been something like rCell.EntireRow

Try

Code:

---

For Each rCell In ActiveSheet.Range("A4:A93").Cells
    With rCell.EntireRow
      If .Hidden Then
          .Hidden = False
          .Interior.colorIndex = 19
      End If
    End With
Next

---

Thanks Paul_Hossler

It worked. You are correct. "EntireRow" was not qualified, and also apparently,
You cannot call the EntireRow.Hidden from the Cell object as I was attempting in my other trials.
Sleep does wonders for the brain !
Thank you.

What is the best way to modify this so that only the cells in Column A are shaded .Interior.colorIndex = 19

.cells (1).interior.colorindex = 19

Probably something like this

Code:

---

For Each rCell In ActiveSheet.Range("A4:A93").Cells
    With rCell
      If .EntireRow.Hidden Then          .EntireRow.Hidden = False          .Interior.colorIndex = 19
      End If
    End With Next

---

Paul_Hossler & p45cal

Thanks guys.
Everything worked as expected.