Help!!

My code below successfully opens a book from the right place, but now Im
trying to copy the sheet Results_first into the book which houses the
below macro, say book X.
How do I tell VB to paste the entire sheet into the book X..?

Regards

D


Dim i As Long, sName As String, sh As Worksheet
Dim dest As Range, bk As Workbook, bk1 As Workbook
Dim sh1 As Worksheet
Set bk1 = ThisWorkbook
i = 1

sName = Dir("\\server\_to_combine_files\*.xls")


Do While sName < ""

Set bk = Workbooks.Open("\\server\_to_combine_files\" & sName)


Set sh = bk.Worksheets("Results_first")


*** Sent via Developersdex http://www.developersdex.com ***