Macro - Clear cell contents based on other cell

[97hills]

Simple one for most on here but any help will be greatly appreciated.

I need a macro that will look at a range (AX5:AX2000), if a cell in that range = 1 then it will delete the corresponding cell on that row in columns Q:S.

Thanks in advance!

 

[patel45]

Sub a()
Dim cell As Range
For Each cell In Range("AX5:AX2000")
  If cell = 1 Then
    Range("Q" & cell.Row & ":S" & cell.Row).ClearContents
  End If
Next
End Sub

 

[97hills]

Sub a()
Dim cell As Range
For Each cell In Range("AX5:AX2000")
  If cell = 1 Then
    Range("Q" & cell.Row & ":S" & cell.Row).ClearContents
  End If
Next
End Sub

Worked a treat, thanks