Solved: Clear cells in column A if column B has a zero

[Shazam]

I have part numbers in column A and column B has the qty's. Does someone have a code if any cells in column B has a zero then clear the cells next to column A?

[Bob Phillips]

[vba]

Public Sub ProcessData()
Const TEST_COLUMN As String = "B" '<=== change to suit
Dim i As Long
Dim iLastRow As Long
With ActiveSheet

iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = 1 To iLastRow
If .Cells(i, TEST_COLUMN).Value = 0 Then
.Cells(i, TEST_COLUMN).Offset(0, -1).Value = ""
End If
Next i
End With

End Sub
[/vba]

[Shazam]

Thank You xld it's perfect!!