Finding Formula and clearing cell

[RussD]

I need some help in writing a macro that finds a cell within a column that has a formula. I need to find the formula and then clear it.

Thanks.

 

[Yogi Anand]

Hi Russ:

Here is one to try ...

Sub yFindAFormulaInCellA1toA12andClearIt()
    For Each cell In [A1:A12]
        If cell.HasFormula Then cell.ClearContents
    Next cell
End Sub

 

[SIXTH SENSE]

hi!
If you mean clear it, delete the formula then try this.
select the range in concern and run the macro.


<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> delFormula()
For <SPAN style="color:#00007F">Each</SPAN> c <SPAN style="color:#00007F">In</SPAN> Selection
    <SPAN style="color:#00007F">If</SPAN> c.HasFormula = <SPAN style="color:#00007F">True</SPAN> <SPAN style="color:#00007F">Then</SPAN>
        c.ClearContents
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN> c
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

 

[RussD]

Thanks for both of you! I'll give these a try at work tomorrow.

Cheers,

Russ D.