I have a macro that will let me search for the location of an Excel file and
import the data from that file-

Dim wb As Workbook
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Dialogs(xlDialogOpen).Show ThisWorkbook.Path
Set wb = ActiveWorkbook
wb.ActiveSheet.Range("A4:E30").Copy _
ThisWorkbook.Sheets("Non Account Activity - Brokaw").Range("CA4")
wb.Close False
Application.DisplayAlerts = True
Application.ScreenUpdating = True


What I would like to do is modify this so that I can source 2 different
files (in the same directory location) and have the data from both of them
imported at the same time..

Is this possbile ?


--
Thanks

Larry

Hi Larry

See example 2 on this page :

Merge a range from every workbook you select (below each other)
http://www.rondebruin.nl/copy3.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Larry Fitch" wrote in message ...
I have a macro that will let me search for the location of an Excel file and
import the data from that file-

Dim wb As Workbook
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Dialogs(xlDialogOpen).Show ThisWorkbook.Path
Set wb = ActiveWorkbook
wb.ActiveSheet.Range("A4:E30").Copy _
ThisWorkbook.Sheets("Non Account Activity - Brokaw").Range("CA4")
wb.Close False
Application.DisplayAlerts = True
Application.ScreenUpdating = True


What I would like to do is modify this so that I can source 2 different
files (in the same directory location) and have the data from both of them
imported at the same time..

Is this possbile ?


--
Thanks

Larry

Oops, you say sheets and not two workbooks

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Ron de Bruin" wrote in message ...
Hi Larry

See example 2 on this page :

Merge a range from every workbook you select (below each other)
http://www.rondebruin.nl/copy3.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Larry Fitch" wrote in message ...
I have a macro that will let me search for the location of an Excel file and
import the data from that file-

Dim wb As Workbook
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Dialogs(xlDialogOpen).Show ThisWorkbook.Path
Set wb = ActiveWorkbook
wb.ActiveSheet.Range("A4:E30").Copy _
ThisWorkbook.Sheets("Non Account Activity - Brokaw").Range("CA4")
wb.Close False
Application.DisplayAlerts = True
Application.ScreenUpdating = True


What I would like to do is modify this so that I can source 2 different
files (in the same directory location) and have the data from both of them
imported at the same time..

Is this possbile ?


--
Thanks

Larry