How can I move to a cell and remove the current data in excel?

[hancre]

I tried this following code.
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

[mikeyww]

Code: Select all

Appskey & a::XL.Range("e3").Delete, XL.Range("e3").Select