Hi,
I am trying to build a macro that will:
See if A1 (integer) is empty
If A1 empty, clear contents of B1
If A1 has an integer, do nothing
I need this to loop down to row 57,000
See my attempt at the code below...could anyone help me out or point me in the right direction?
Thanks
Karl
Sub Clear_B()
Dim Column_A As Integer, Column_B As String
Application.ScreenUpdating = False
For Column_A = 1 To 57000
If Cells(i, 1).Value Is Not interger Then Range(Cells(Column_A, 1), Cells(Column_A, 2)).Replace Cells(Column_A, 2).Value, ""
End If
Next i
End Sub
Bookmarks