Find in Column A TEXT, and Delete 2 cells left if found

[menor59]

Hello all,

In Column A I need to Find "XXXXXXXXX"

If XXXXXXX is found Highlight A? and B? and Delete Left

Basically theres alot of instances of "iCLASS" in Column A

Im having to scroll down and Highlight iClass and the cell next to iClass, Right click Delete and select Shift cells Left...

can a Macro be written to Look and find all instances of iCLass in column A, and highlight both A where Iclass is and B? next to it and delete "shift cells left"?

Thank you

 

[mumps]

Try:

Sub DeleteCells()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim rng As Range
    For Each rng In Range("A2:A" & LastRow)
        If rng = "iCLASS" Then
            Range("A" & rng.Row & ":B" & rng.Row).Delete Shift:=xlToLeft
        End If
    Next rng
    Application.ScreenUpdating = True
End Sub