I have a column of data in Column A

[IcarusHallsorts]

I have a column of data in Column A and I want to delete the entire row and move the rows up if the text in the cell contains a certain string.
How do I get VBA to prompt me for the text and then when entered will proceed to delete the relevant rows?

 

[SkipVought]

Hi,

Are you saying that for the selected cell or for all the rows in the column you want to search for a string and if found delete every row containing that string?

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]
"The most incomprehensible thing about the universe is that it is comprehensible" A. Einstein

You Matter...
unless you multiply yourself by the speed of light squared, then...
You Energy!

 

[IcarusHallsorts]

All the rows in the column

 

[Andrzejek]

Case sensitive:

Option Explicit

Public Sub DeleteRows()
Dim R As Long
Dim str As String

str = InputBox("What do you want to Delete?")

For R = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
    If InStr(Cells(R, 1).Value, str) > 0 Then
        Rows(R & ":" & R).Delete Shift:=xlUp
    End If
Next R

End Sub

If you want to make it Case insensitive, change line of code to:[tt]
If InStr([blue]UCase([/blue]Cells(R, 1).Value[blue])[/blue], [blue]UCase([/blue]str[blue])[/blue]) > 0 Then[/tt]

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson