I think that I can see what you are trying to do so try this code and let me
know if it works for you. As a side issue, you should not code the Find
without all of its arguments because it always uses the last ones set even if
that was done in the interactive mode. Look up Find Method in VBA Help
(Answer Wizard tab) and click on show all and you will find this under the
Remarks.
Sub Findnshow()

Dim cell1
Dim Rng1 As Range

Set Rng1 = Worksheets("TestAutoFilt").Range("A4:A15")
'Rng1.EntireRow.Hidden = False

Set c = Rng1.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not c Is Nothing Then
InitAddress = c.Address 'Save the first address
Do 'Look for further occurrences of the find criteria
c.EntireRow.Hidden = False
Set c = Rng1.FindNext(c)
Loop While Not c Is Nothing And c.Address < InitAddress
End If

End Sub



"Greg Glynn" wrote:

Stew,

How are you hiding a Cell?

Greg