Super noob
I have been trying to delete specific word in say column H say the word springfield
have tried a few scripts but it deletes data from column F
please help
here is what I have
Sub Macro1()
Dim FoundIt As Range
Dim Rng As Range
Dim SearchWord As String
SearchWord = "ABC"
Set Rng = Columns("B:B")
Set FoundIt = Rng.Find(What:=SearchWord, _
After:=Rng.Cells(1, 1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not FoundIt Is Nothing Then
Set FoundIt = FoundIt.Resize(Rowsize:=5)
FoundIt.EntireRow.Delete
End If
End Sub
thanks in advance for any direction/help
Bookmarks