Declara una variable de tipo String, la cual contendrá la ruta y el nombre archivo que querrás abrir:
Dim MiArchivo as String
Ocupa la siguiente sentencia para que se abra el cuadro de diálogo "Abrir":
MiArchivo = Application.GetOpenFilename("Archivo Excel XLS, *.xls")
Workbooks.Open Filename:=varArchivoXls
La primera sentencia abre el cuadro Abrir. Se guardará en la variable "MiArchivo" el archivo que selecciones (la ruta y el nombre). Lo que está entre los paréntesis es un filtro que permite mostrar sólo archivos XLS, si quieres, puedes ponerle *.xxx (cualquier cosa) o no le pones nada.
La segunda sentencia es la que abre el archivo definitivamente.
Para salvar es más o menos similar:
MiArchivo2 = Application.GetSaveAsFilename("NombreArchivo", "Archivos de Excel (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=varMiArchivo, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
La primera sentencia te abre el cuadro "Guardar Como" y el nombre y ruta del archivo lo guarda en la variable "MiArchivo2".
La segunda sentencia graba el archivo con el nombre y la ruta que hayas especificado.
Suerte.