satırları gizle

[memuru_m]

Sub gızle()
Dim hucre As Range
For Each hucre In Range("F5:F96")
If hucre.Value <> Range("D1").Value Then
hucre.EntireRow.Hidden = True
End If
Next
End Sub

burada F5-F96 alanı arasında kalan satırlardan ;D1deki verinin yazılı olduğu satır haricindekileri gizlemeye çalışıyorum ama döngü durmuyor nasıl düzeltirim acaba

 

[hamitcan]

If hucre.Value <> Range("D1").Value Then

satırını

If hucre.address <> Range("D1").address Then

şeklinde değiştirerek dener misiniz?