Snasui Excel Forum

Code: Select all

Sub test1()

 With Sheets("Sheet1").Range("A:D")

  Set x = Cells.Find(What:="MQ", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
        
     x.Offset(0, 1).Clear

End With

End Sub

Code: Select all

Sub test0()
    Dim rAll As Range, r As Range
    Set rAll = ActiveSheet.UsedRange
    For Each r In rAll
        If InStr(r, "MQ") > 0 Then
            r.Offset(0, 1).ClearContents
        End If
    Next r
End Sub