Solved: if column B is empy delete the data on column A

[parscon]

Hello to all .

I have a request , I need a VBA code that if column B is empty , delete the data on column A on that row , just I do not want to delete the row .

Please help me on this subject .

Thank you very much .

[GarysStudent]

Perhaps:

[VBA]

Sub ClearA()
Dim r As Range
For Each r In Intersect(Range("B:B"), ActiveSheet.UsedRange)
If IsEmpty(r) Then
r.Offset(0, -1).Clear
End If
Next
End Sub

[/VBA]

[parscon]

Thank you very much .