Sería algo como esto:
Código:
xlsApp.Cells.Find(What:=xlsApp.Range("A1"), After:=xlsApp.ActiveCell, LookIn:=-4123, LookAt:= _
2, SearchOrder:=1, SearchDirection:=1, MatchCase:=False _
, SearchFormat:=False).Activate
Ahora, para que puedas aprender cómo hacerlo, te explico el porqué de las modificaciones. El código original era este:
Código:
Cells.Find(What:=Range("a1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Pero en Visual Basic no tenemos las constantes xlFormulas, xlPart, xlByRows y xlNext. Son constantes de Excel, así que lo que hice fue obtener el valor de esas constantes y colocarlas directamente en el código. Otra cosa, ActiveCell, Range y Cells también son variables en Excel pertenecientes a Application. Por eso, para pasarlas a Visual Basic antecedemos su declaración por el objeto que tenemos como aplicación Excel (xlsApp).