Change selected cell value if number, mark selected cell if text string

Hi,

I am trying to make a macro that multiplies a cell value containing a '€' symbol if it is a number by an input, or marks the cell if it contains a '€' symbol if it contains a text string.
However, there are a couple different situations that make this difficult for me:
1. Cell value is a number in currency format (in this case, cell value needs to be multiplied by input value)
2. Cell value is a number in financial format (in this case, cell value also needs to be multiplied by input value)
3. Cell contains a text string containing a '€' symbol somewhere in the sentence (in this case, cell needs to be marked with a color)

I made a macro by combining different parts of code that I found, and so far it does the following:
It first asks for the input with a msgbox. Then selects all the cells containing a '€' symbol. So far so good
Then, it should multiply cell value by input if cell contains a number, else mark cell with a color.
This last part is not functioning properly: it works until it encounters a cell containing a text string, then jumps to the Errorhandler instead of marking the cell.
I can sort of construct macro's by combining code I find on the internet, but I'm unable to fix any issues that I'm encountering here for example.
Therefore, I'm not sure how to fix this issue myself. Please help me!

This is the code I have so far:

Please Login or Register  to view this content.

Attached you can find an example file showcasing a 'before' and 'after' (as if macro works properly).
It can also be used to see the current issue I am facing, as it will jump to the Errorhandler when the code reaches cells in Column H.

Thank you in advance!