Delete Record problem VBA Excel

[JustATheory]

Greetings,

I'd like to delete an entire record if I find a word anywhere in text in a column of cells. For instance if in column C I find the word "Hello" in any cell, I'd like that entire row deleted. I need it to loop through the date in the column until there are no more records. I'm able to loop through records and move data, but not delete a record.

Thanks,
Andy

 

[macropod]

Try something like:

Sub CleanUp()
Dim iRow As Long
Dim TopRow As Long
Dim ColSelect As String
Dim oStr As String
ColSelect = InputBox("What Column do you want to test?", "Test Column", "A")
TopRow = InputBox("What Row do you want to start at?", "Start Row", "1")
oStr = InputBox("What String do you want to test?", "Test String")
With ActiveSheet
    On Error Resume Next
    For iRow = .UsedRange.Rows.Count To TopRow Step -1
        If InStr(.Cells(ColSelect & iRow).Value, oStr) <> 0 Then _
        Rows(iRow).EntireRow.Delete
    Next iRow
End With
End Sub

Cheers

[MS MVP - Word]

 

[JustATheory]

Hey Macprod,

This works perfect!

Thanks,
Andy