Code is dragging selection when should copy
 

The people on this forum have been most helpful by providing me wit
copying 1500 files into one with the code below. However, I have foun
one problem. Since it is copying a formula I'm not sure if that ha
anything to do with it. But after the 1st row it will copy the correc
file but the information is not correct. It's almost like you'v
dragged the selection down. Do you think a copy/paste special would b
the best route?

Sub MergeFiles()
Application.ScreenUpdating = False
Dim FName As String
Dim WB As Workbook
Dim Dest As Range
Const FOLDERNAME = "C:\Survey\Test"
ChDrive FOLDERNAME
ChDir FOLDERNAME

Set Dest = Range("A2")
FName = Dir("*.xls")

Do Until FName = ""
Set WB = Workbooks.Open(FName)
Windows(FName).Activate
Sheets("Data").Visible = True
WB.Worksheets("Data").Rows(2).Copy Destination:=Dest
WB.Close savechanges:=False
Set Dest = Dest(2, 1)
FName = Dir()
Loop
End Sub

Thank you

--
Message posted from http://www.ExcelForum.com

Code is dragging selection when should copy
 

Look at this example
http://www.rondebruin.nl/copy3.htm

I add code in this subs that show you how to copy only the values


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"rglasunow " wrote in message ...
The people on this forum have been most helpful by providing me with
copying 1500 files into one with the code below. However, I have found
one problem. Since it is copying a formula I'm not sure if that has
anything to do with it. But after the 1st row it will copy the correct
file but the information is not correct. It's almost like you've
dragged the selection down. Do you think a copy/paste special would be
the best route?

Sub MergeFiles()
Application.ScreenUpdating = False
Dim FName As String
Dim WB As Workbook
Dim Dest As Range
Const FOLDERNAME = "C:\Survey\Test"
ChDrive FOLDERNAME
ChDir FOLDERNAME

Set Dest = Range("A2")
FName = Dir("*.xls")

Do Until FName = ""
Set WB = Workbooks.Open(FName)
Windows(FName).Activate
Sheets("Data").Visible = True
WB.Worksheets("Data").Rows(2).Copy Destination:=Dest
WB.Close savechanges:=False
Set Dest = Dest(2, 1)
FName = Dir()
Loop
End Sub

Thank you!


---
Message posted from http://www.ExcelForum.com/