Consulta de los datos copiados del filtro...

Hola Tavopz como estas... Epero que muy bien gracias a Dios.
Sub Buscar_txt()
x = InputBox("Ingrese el texto a buscar")
Set RangeObj = Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If RangeObj Is Nothing Then MsgBox "No Encontrado" Else RangeObj.Select
End Sub
Esta macro la diseño usted, pero me gustaria hacerle una modificacion.
If RangeObj Is Nothing Then MsgBox "No Encontrado" Else RangeObj.Select
En vez de un MsgBox, me gustaría que me llevara a otra Hoja del Libro
¿Cómo haría?
ATT; Luis