Hello guys, firstly i want to sorry my English, because i'm not using the translator. I hope you can understand what I writed.
So, i maked a macro that open the find dialog box and search for the word "lote".
My macro:
Range("A1").Activate
SendKeys "^lLOTE"
Range("A1").Activate...