XLS Padlock compile code

Hello everybody!

I try to compile my VBA code. I have already made several changes. But I have problems with:

msgbox (vbInformation underlined)
for each (following variable underlined)
Application.ActiveSheet.Cells.Find(Text3, SearchFormat:=True).Activate (:=True underlined)

Another error occurs when I assign a value to a cell: Assign to method ‘Cells’ is not allowed.

Can anybody help me? Where can I find advice myself?

Thank you very much.