If cell in column A is zero

[singlgl1]

I'm trying to avoid going to individual formulas to make this change so I hope there's a way to do this for the whole sheet using a code, so here goes:
I have a sheet where I'd like to instruct that if cells in Column B are zero, then all intersecting cells to the right will be zero as well, otherwise use formulas associated with these cells.

For Example,If cell B8=0, then cells C8:AE8 will equal 0.
I'd like to do this for the range B8:AE38
Hope this makes sense.

Thanks!

 

[singlgl1]

Thanks Rick,
That will save a lot of time indeed.Perhaps that should have been my request from the start since I was trying to avoid going into each individual formula and making these changes.
Thanks again. I'll keep you posted!
Greg

 

[singlgl1]

Rick,
Worked like a charm. Thank you very much!

 

[Rick Rothstein]

Rick,
Worked like a charm. Thank you very much!

Great, I am glad to hear that. You are quite welcome.

 

[singlgl1]

Rick,
I will need to make one slight change;
Where the code says For Each Cell In Range("C" & StartRow & ":AE" & LastRow)

I will need for this to start at row 8 and end at row 38 instead of startrow & lastrow.
How would I make that change in the code?

Thanks!

 

[Rick Rothstein]

Rick,
I will need to make one slight change;
Where the code says For Each Cell In Range("C" & StartRow & ":AE" & LastRow)

I will need for this to start at row 8 and end at row 38 instead of startrow & lastrow.

Well, if the range is guaranteed to be fixed like that, then this should work...

Sub FixFormulas()
  Dim Cell As Range
  For Each Cell In Range("C8:AE38")
    If Cell.HasFormula Then Cell.Formula = Replace(Cell.Formula, "=", "=IF(B" & Cell.Row & "=0,0,", , 1) & ")"
  Next
End Sub

 

[singlgl1]

Thanks!