Como buscar archivo excel desde cualquier parte

Quisiera saber como puedo agregar un comando para abrir un archivo excel desde cualquier parte de mi directorio, con tan solo indicándole el nombre del archivo y su extensión.

Ubique un comando que me lo permite, para poder copiar lo que necesito, solo le tuve que indicar la ruta. Pero si ese archivo lo cambio de carpeta porque tengo que pasarlo a otro computador, no quiero estar siempre modificando la ruta de búsqueda.

Este es mi comando;

Private Sub CommandButton4_Click()
Dim wbLibroOrigen As Workbook
Dim wsHojaOrigen As Worksheet
Dim wbLibroDestino As Workbook
Dim wsHojaDestino As Worksheet
Dim Ruta As String
 Application.DisplayAlerts = False
 Application.ScreenUpdating = False
Ruta = "D:\Inventario\Inventario.xls"
Set wbLibroDestino = Workbooks(ThisWorkbook.Name)
Set wsHojaDestino = wbLibroDestino.Worksheets("ListadoInventario")
Set wbLibroOrigen = Workbooks.Open(Ruta)
Set wsHojaOrigen = wbLibroOrigen.Worksheets("Inventario")
ufila = wsHojaOrigen.Range("A" & Rows.Count).End(xlUp).Row
wsHojaOrigen.Range("A1:H" & ufila).Copy Destination:=wsHojaDestino.Range("A1")
Workbooks(wbLibroOrigen.Name).Close savechanges:=False
Formato_OrdenAlfabetico
Application.Visible = False
MsgBox "Inventario Actualizado", vbOKCancel
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True
End Sub

Se puede mejorar???