Como crear un boton con explorador

hola, Oswaldo !

... deseo... explorar los archivos del computador
y ademas me guarde la ruta del archivo que seleecione en una celda de la hoja de excel
y en otra celda solo el nombre del archivo que escoji...

el siguiente ejemplo deposita (en la hoja activa) en la celda A1 el nombre del archvo que selecciones
y en la celda A2 la ruta de donde lo seleccionaste (si cancelas el dialogo... no hace nada) :))

Sub Indicar_archivo()
Dim Actual As String, Archivo As String
Actual = CurDir
Archivo = Application.GetOpenFilename("Archivos de excel (*.xl*), *.xl*")
If Dir(CStr(Archivo)) = "" Then Exit Sub
ChDir Actual
[a1] = Dir(Archivo)
[a2] = Left(Archivo, InStr(Archivo, [a1]) - 1)
End Sub

saludos,
hector.