VBA Find function

Hello,
I am writing a macro to find text in the worksheet using the "Find" function.
Entering the text in the "Find what" enter box is of course easy.
My special issue now it that the text that should be found is CHANGING !!!
I thought it should be possible to enter the text that should be searched for in cell A1 and the "Find" function should look at cell A1 what text is entered there and then should use the text entered in cell A1 in the "Find what" enter box.

Can anyone give me an tip how this can be done?

Thank you very much.