If your file is on a network share as: \\employee\call quality\data.xls
Then change this line:
sFile = ThisWorkbook.Path & "\\Employee\Call Quality\Data.xls"
to just:
sFile = "\\Employee\Call Quality\Data.xls"
If your file is under the folder that contains the workbook that's running the
code:
Then change this line:
sFile = ThisWorkbook.Path & "\\Employee\Call Quality\Data.xls"
to just:
sFile = ThisWorkbook.Path & "\Employee\Call Quality\Data.xls"
(you had an extra backslash.)
Mikeice wrote:
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.
--
Mikeice
------------------------------------------------------------------------
Mikeice's Profile: http://www.excelforum.com/member.php...o&userid=22467
View this thread: http://www.excelforum.com/showthread...hreadid=388968
--
Dave Peterson