Clear static formulas, but leave linked formulas

I'd like to find a way to clear everything in a column except for linked range formulas (like: "=sum(A3:A5)")

Currently I'm using "If cell.HasFormula = False Then cell.ClearContents"

But I'd like to also remove the data from cells that are calculated with static numbers (like: "=23598+395802+3598")

Is there a way to delete everything in a column that has static numeric data like this and maintain the linked formulas ("=A3-A5-A7")

Thank you!

I think something like:

Please Login or Register  to view this content.

Unfortunately this code doesn't seem to do anything when I alter the range to the appropriate data set.

I've been looking into Precedents now for the past few hours, and everything I've tried does not recognize the difference between static numbers "=158923-16830-269849" vs linked cells (precedents) "=A4-A5-A7"

Does anyone know how this is done? Can it be done?

Hi this code worked for me but maybe it is a version thing - in 2003, if the cell has no precedents then
a = cl.directprecedents
creates an error for me. If the cell has precedents then
a = cl.directprecedents.count
would return the number of linked cells to the variable a.
Perhaps you could try:

Please Login or Register  to view this content.