VBA clear contents of other adjacent columns

[Dark0Prince]

Sub Button44_Click()
Dim rng As Range

Set rng = Range("B7:B50")
Set rngFound = rng.Find("ABQ")
If rngFound Is Nothing Then
    MsgBox "NOTHING TO CLEAR!!!"
Else:
Cells(rng.Row, 7).ClearContents
Cells(rng.Row, 8).ClearContents
End If

End Sub

Here's the code I'm starting with, and I'm not sure how I can use this to clear the 7th and 8th column if abq is found in the B range.

It's only clearing B7 for some reason.

 

[Rick Rothstein]

Sub Button44_Click()
Dim rng As Range

Set rng = Range("B7:B50")
Set rngFound = rng.Find("ABQ")
If rngFound Is Nothing Then
    MsgBox "NOTHING TO CLEAR!!!"
Else:
Cells(rng.Row, 7).ClearContents
Cells(rng.Row, 8).ClearContents
End If

End Sub

Here's the code I'm starting with, and I'm not sure how I can use this to clear the 7th and 8th column if abq is found in the B range.

It's only clearing B7 for some reason.

Here is an alternate macro that should do what you want...

Sub ClearIfABQ()
  [G7:H50] = [IF(B7:B50="ABQ","",IF(G7:H50="","",G7:H50))]
End Sub