Combibing to Excel files using VB

[RHemmings]

I am trying to combine two excel files into one using the code below. When I execute the code only the FIST cell of the second file gets appended. Can anyone tell me what I am doing wrong?

Thanks, Bob


Sub CombineFiles(x)
Workbooks.Open Filename:="U:\docs\PO IN.xls"
' Count rows in first file
Range("A1&quot.Select
With Selection.CurrentRegion
rc = .Rows.Count
rc = rc + 1
End With
Workbooks.Open Filename:="U:\docs\DEP IN.xls"
Range("A1&quot.Select
Selection.Copy
ActiveWorkbook.Close
Cells(rc, 1).Select
ActiveSheet.Paste

 

[johnwm]

You're only copying 1 cell here:
Workbooks.Open Filename:="U:\docs\DEP IN.xls"
Range("A1&quot.Select

Try:
Workbooks.Open Filename:="U:\docs\DEP IN.xls"
Cells.Select

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'