Option Explicit
Sub merge_multiple_workbooks()
' DECLARE ALL VARIABLES AND ARRAYS
Dim fldpath
Dim fld, fil, FSO As Object
Dim WKB As Workbook
Dim wks As Worksheet
Dim shtnames()
Dim Paste
Dim j As Long, w As Long
Dim stcol As String, lastcol As String
stcol = "A"
lastcol = "iv"
With Application.
WithOUT looking at your file(s) something like this pseudo code
‘open each file
for i=1 to 3
sheets(i).usedrange copy
workbooks(“masterfile.xls”).sheets(i).cells(rows.count,1).end(xlup)(2)
next i
‘close each file
Don Guillett
Microsoft Excel Developer
SalesAid Software
dguille...@gmail.com
From
