But It doesn't work and an error happens.
The error message show <6 '6' runtime error happened. overflow > and the macro for search stopped.
How can i fix the issue? Thanks for any help in advance.
what I want : move to E3 and remove the data to type another text fast.
Code: Select all
Appskey & a::
xl.Range("e3").Select
xl.cells.delete
Return