The line
Application.Dialogs(xlDialogOpen).Show
will display the Open dialog. Alternatively, you can ask the user to select a file, you can do what you want with the filename in your code:
Sub Test()
Dim strFile As String
strFile = Application.GetOpenFilename("Excel workbooks,*.xls*")
If strFile = "False" Then
' the user clicked Cancel
...
Else
' the user selected a file; its path+name is in strFile
...
End If
End Sub
Please note that GetOpenFilename does *not* open the file, it merely gives you the name of the selected file.
Regards, Hans Vogelaar