Import two worksheets into workbook
 

Hi,

I would like to run a macro which will work like this:

MsgBox "Select file 1"
- Import data dialog box to allow user to select an excel file
MsgBox "Select file 2"
- Import data dialog box to allow user to select an excel file

I dont want to define the path or filename, but want the user to be
able to select the file to import.

Thank you ahead of time for your help!!!!

Dan

Import two worksheets into workbook
 

I always use code lke this to have the user select a file (without actually
opening the file yet).

Dim Fyle1 As String
'The user needs to select the file from which data should be retrieved.
'GetOpenFilename displays a standard File Open dialog, but it only gets
'the file name - it doesn't open the file.
Fyle1$ = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
'If no file was selected (Cancel clicked), stop the macro.
If Fyle1$ = "False" Then Exit Sub

'Open the selected workbook.
Workbooks.Open Filename:=Fyle1$

Hope this helps,

Hutch

"dan" wrote:

Hi,

I would like to run a macro which will work like this:

MsgBox "Select file 1"
- Import data dialog box to allow user to select an excel file
MsgBox "Select file 2"
- Import data dialog box to allow user to select an excel file

I dont want to define the path or filename, but want the user to be
able to select the file to import.

Thank you ahead of time for your help!!!!

Dan