O código abaixo mostra como abrir um arquivo xls usando uma inputbox.
Insira no formulário ou no módulo o código abaixo:
Dim Nome As String
Sub Nome_da_Macro()
Nome = InputBox("Digite o nome", "aviso")
' Verifica se campo está em branco
If Nome = "" Then
Exit Sub
End If
If Nome <> "" Then
ChDir "C:\Documents and Settings\Usuario\Desktop"
Workbooks.Open Filename:=Nome
End If
End Sub
