Thread: macro to clear contents of two ranges if cell is blank

Hello fisher-price,

Welcome to the Forum!

This macro checks the cells in the range "AOT5:AOT500". If any cell is blank, it will clear cells "AJIx:AOJx" and "AOOx:AOSx" in row x where x is the row of the cell that is blank.

Sub ClearColumns()

  Dim Cell As Range
  Dim R As Long
  
    For Each Cell In Range("AOT5:AOT500")
      If Cell = "" Then
         R = Cell.Row
         Range(Cells(R, "AJI5"), Cells(R, "AOJ5")).Clear
         Range(Cells(R, "AOO5"), Cells(R, "AOS5")).Clear
      End If
    Next Cell
    
End Sub

Adding the Macro (Excel 95 - 2003)

1. Copy the macro above pressing the keys CTRL+C
2. Open your workbook
3. Press the keys ALT+F11 to open the Visual Basic Editor
4. Press the keys ALT+I to activate the Insert menu
5. Press M to insert a Standard Module
6. Paste the code by pressing the keys CTRL+V
   
7. Make any custom changes to the macro if needed at this time.
8. Save the Macro by pressing the keys CTRL+S
9. Press the keys ALT+Q to exit the Editor, and return to Excel.

To Run the Macro...
To run the macro from Excel, open the workbook, and press ALT+F8 to display the Run Macro Dialog. Double Click

the macro's name to Run it.