Trying to Hide Rows with :30

[RyGuy]

I have a range of cells, with time in half-hour increments. I would like to
hide all rows with a :30 in Range A. I put together this macro, but it
doesn’t actually do anything. What am I missing?

Sub HideRows()
Dim cell As Range
Application.ScreenUpdating = False
If tgButton = True Then
For Each cell In Range("A5:A20000")
If cell.Value Like ":30" Then
cell.EntireRow.Hidden = True
End If
Next cell
Else
Range("A5:A20000").Rows.EntireRow.Hidden = False
End If
Application.ScreenUpdating = False
End Sub

Here is some sample data:
12:30:00 AM
1:00:00 AM
1:30:00 AM
2:00:00 AM

Thanks,
Ryan---

 

[Ron de Bruin]

Hi RyGuy

Use cell.Text instead of cell.Value

 

[RyGuy]

Thanks Ron, but it's still not working.
Any other ideas?
Ryan--

 

[RyGuy]

This little thing did the trick:

Sub HideIf30()
For Each cell In Range("A1:A20000")
If cell.Text Like "*:30*" Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub

Hopefully this helps others.
Thanks everyone!
Ryan--

 

[Ron de Bruin]

Yes, you need that also