HI There

Got some code off the forum here and modified but still can't get t
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

--
Mikeic
-----------------------------------------------------------------------
Mikeice's Profile: http://www.excelforum.com/member.php...fo&userid=2246
View this thread: http://www.excelforum.com/showthread.php?threadid=38896

Hi,

You have to change the current drive. Use ChDrive(Path)
Regards
Jean-Yves

"Mikeice" wrote in
message ...

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

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

Oops. I didn't notice the subject. Try the first suggestion.

Dave Peterson wrote:

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

--

Dave Peterson

Thanks guys

You rock!!


Worked perfectly :

--
Mikeic
-----------------------------------------------------------------------
Mikeice's Profile: http://www.excelforum.com/member.php...fo&userid=2246
View this thread: http://www.excelforum.com/showthread.php?threadid=38896