Macro To Completely Delete Contents Of A Cell Range Based On Specific Text In The Cell

Hi All,

I have a worksheet where I would like to completely delete the contents of cells based on the text in the cell leaving the cells where the condition is met, completely empty after the macro has run.

The cell range is and always will be C11:AFT661

Every cell in the range contains a formula

The formula in each cell returns data from another workbook as TEXT or if no data is found leaves the cell blank.

Where the TEXT returned into the cell by its formula begins with a 0 (that's a zero) the new macro should delete all contents in that cell including its formula leaving the cell completely empty.

Thank you for reading and for any help forthcoming.

Thank you mullahraheil, that works but can you alter it to leave the formatting as it is and to only delete the data/formula. Many Thanks.

Thank you ever so much mullahraheil,

My initial problem was solved, but now I would like to include something extra into the code provided to me.

Can somebody amend the code so that it will also clear out the formula in a cell where it has returned no data and left the cell blank.

For Each cl in Range("C11:AFT661")
If Left(cl.value,1) = 0 Then cl.ClearContents
Next cl

AboveIs the code that solved my initial problem, I have duplicated it to below

For Each cl in Range("C11:AFT661")
If Left(cl.value,1) = " " Then cl.ClearContents
Next cl

But rathar than run 2 seperate macros, how do I express 0 or " " into the one macro

Thanks.

Can anybody help please?

davesexcel, thank you ever so much for your solution, it really is greatly appreciated, thanks again, Mike.