Delete Rows with a specific Date / Time Format

[Guzzlr]

'Step Through Rows Backwards and Delete Matching Data
    For MyRow = LastRow To 3 Step -1
        If (Cells(MyRow, "K") = Cells(MyRow - 1, "K")) Then
            Rows(MyRow - 1 & ":" & MyRow).Delete
        End If
    Next MyRow

Hello All, the above code is working good for me to find and delete the rows with matching numbers.
I want to shift gears and delete rows that Do Not have the following Date / Time format in Column G:

mm/dd/yyyy 00:00:00

If a row has a Date / Time format in coloumn G other than the above, that row would be deleted.
I'm not having luck trying to get the code to work based on my loop example above

Thanks for the help

 

[Rick Rothstein]

Code I used:

  With Range("[B][COLOR="#FF0000"]H1[/COLOR][/B]", Cells(Rows.Count, "H").End(xlUp))
    .Value = Evaluate(Replace("IF(@=INT(@),""#N/A"",IF(@="""","""",@))", "@", .Address))
    .SpecialCells(xlConstants, xlErrors).EntireRow.Delete
  End With

I missed that your headers were on Row 3. Try changing the H1 above to H4.

 

[Guzzlr]

I missed that your headers were on Row 3. Try changing the H1 above to H4.

Changed H1 to H4, it error'd on:
.SpecialCells(xlConstants, xlErrors).EntireRow.Delete

The error was "no cells found" yet I have changed the time to hh:mm:ss
Thanks

 

[Guzzlr]

For Each sht In ActiveWorkbook.Worksheets    If sht.Visible And (sht.Name) = "Template" Then
    For r = sht.Cells(sht.Rows.Count, "H").End(xlUp).Row To 4 Step -1
        If (sht.Cells(r, "H").Value) = "hh:mm:ss" Then sht.Rows(r).Delete
    Next r
    End If
Next sht

I've also been trying something like this, but it is skipping by the cells with this time format