HI There
Got some code off the forum here and modified but still can't get to work.
Private Sub CommandButton3_Click()
Dim sFile As String
Dim Source As Range
Dim Rdest As Range
Set rSource = ThisWorkbook.ActiveSheet.Range("B2:I65")
sFile = ThisWorkbook.Path & "\\Employee\Call Quality\Data.xls"
Workbooks.Open sFile
Set Rdest = ActiveWorkbook.Sheets(1).Range("A1")
rSource.Copy.Rdest
ActiveWorkbook.Close True
End Sub
Comes up with an error and highlights Workbooks.Open sFile
Is it the path?
Gurus help required
Thanks Guys in advance.
Bookmarks