I want to move all rows contaning a key word or words to a new work sheet.
here is some code i wrote to delete all rows containg a key word in column 2
or better yet if i could pass it the name of the word in an imput box and also list the column number in an imput box
any help would be appriciated.
Dim ws As Worksheet
Dim end_row, r As Integer
For Each ws In Worksheets
If ws.Name <> " test"
end_row = ws.Cells(65536, 25).End(xlUp).Row
For r = end_row To 1 Step -1
If Cells(r, 2).Value = "anonymous" Then