VBA Code To find Hardcoded Values in Formula

Hello,

I am struggling to create/find a procedure that will find hard coded values in formula. So far I have been using code that searches for special cells e.g. GoTo Specials cells for constants with Number and Text. However I can not find a way of selecting cells which are part refering to another cell and part refering to a hardcoded value or a formula that just refers to a hardcoded value i.e. a formula with no precedents.

Examples of formula I can not automatically select:

=A1+1
=1+2
=1+A1+H78*J80+9+K7

The formulas above contain a hardcoded value and its cells that contain this type of formula I want to automatically select without selecting every formula in the worsksheet.

Hope People can help

Best Regards

Anjohn