Macro to Clear Row Based on Formula Value

I am working on a sheet where I have a bunch of formulas in columns A1-K500. Here is what I am trying to accomplish:

If the formula in cell A1 (or A2, A3, etc) returns a "0" then I want the cell contents in A1 thru K1 to be cleared. If it does not return a 0 then the row should be left alone. This needs to happen for about 500 rows or so.

Is there a Macro for this? I was able to figure out how to hide the row if A1 is 0 but for formatting purposes, I need to leave the rows visible on the sheet.

Thanks!

Hmm, if I copy that code exactly, it is not working. Thanks for your response though!

Try:

Sub stacymyers11()
Dim i As Long, y
ReDim y(2 To Range("A" & Rows.Count).End(3).row)
For i = LBound(y) To UBound(y)
    If Cells(i, 1).Value = 0 Then Range(Cells(i, 1), Cells(i, 11)).Clear
Next i
End Sub

Just a note that based on your original post, you indicated if the formula = 0, you want to clear the row including the formula? So the formula is erased as well?

@ptmuldoon - Good question.

Yes, I need everything to erase, including the formulas. I found this on another thread and I think it is working.

 
Sub MyMacro()
 
    Dim myLastRow As Long
    Dim i As Long
    
    Application.ScreenUpdating = False
    
'   Find last row
    myLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Loop through range
    For i = 8 To myLastRow
        If Cells(i, "A").Value = 0 Then Range(Cells(i, "A"), Cells(i, "K")).ClearContents
    Next i
        
    Application.ScreenUpdating = True
    
End Sub