Hi

Try this:

Sub AAA()
FirstRow = 2 'Headings in row 1
LastRow = Range("B" & Rows.Count).End(xlUp).Row

For r = LastRow To FirstRow Step -1
If Second(Range("B" & r).Value) < 0 Then
Rows(r).Delete
End If
Next
End Sub

Regards,
Per

"Sasikiran" skrev i meddelelsen
...
Dear,

I need a macro to delete the entire row if the seconds data in the cell is
other than 00.

The data in column B is in h:mm:ss AM/PM format. If the time is other than
00 it displays in the cell. All the rows which has seconds value other
than
00 should be deleted.

Thanks in advance.