If Cell <= specific time, Delete row 1

[RP1America]

Column H is formatted as:

Columns("H:H").NumberFormat = "h:mm:ss;@"

I want to delete any row that has a time of 15:59:59 or prior. The following code is deleting every row.

        If Cells(i, "H").Value <= Format("15:59:59", "hh:mm:ss") Then
            Cells(i, "A").EntireRow.Delete
        End If

Any suggestions?

 

[RP1America]

Got it!

        If Cells(i, "H").Value <= TimeValue("15:59:59") Then
            Cells(i, "A").EntireRow.Delete
        End If

 

[SkipVought]

   With Cells(i, "H")
        If .Value <= TimeValue("15:59:59") Then
           .EntireRow.Delete
        End If
   End with

Or no loop involved: Just FILTER using Criteria:<= TimeValue("15:59:59") and DELETE all visible DATA rows.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}