macro to turn "=AQ1180" to =IF(AQ1180="","",AQ1180)

[tonywatsonhelp]

Hi everyone,
it seams like so much of my day is spent correcting simple formulas,
to save time what i'd like is a macro that when run

take the selected range, and converts all cells that are just "=another cell"
to =IF(AQ1180="","",AQ1180)
now the cells might ref another sheet as well so it woould be helpfull to take that into account.
='Raw Data Paste'!A66

So if I was writing it in english it would read like this,
for each cell in selected range,
if the cell is
"=AQ1180"
then make it
=IF(AQ1180="","",AQ1180)
please help if you can
Thanks
Tony

 

[bebo021999]

Has selection range same formula instruction (relative formula) : =if (cell="","" cell) ?
If so, this code change all cells those has formula:

dim cell as range
For each cell in selection
    if cell.hasformula then
          cell.formula = "=IF(AQ1180="","",AQ1180)"
    end if
Next

If it does not work, try to attach a image/screenshot to give us a visual help.