Dim myPath as string
mypath = thisworkbook.path

Hey, you've already got that in your code!

What's the real problem?

If that path is a different drive, maybe:

ChDrive MyPath
ChDir MyPath

(One to change drive and one to change folders.)



Zlord wrote:

The code for this is below.
I simply want to set the variable MyPath as the directory that the
workbook was opened from.

I'm coding this macro in VB

Thanks in advance for the help.

Code:
--------------------

Dim basebook As Workbook
Dim mybook As Workbook
Dim sourceRange As Range
Dim destrange As Range
Dim SourceRcount As Long
Dim N As Long
Dim rnum As Long
Dim MyPath As String
Dim SaveDriveDir As String
Dim FName As Variant
Dim rng As Range
Dim stng As Long
stng = 3

MsgBox "Please Wait, as this can take some time", vbOKOnly + vbCritical

SaveDriveDir = CurDir
MyPath = ThisWorkbook.Path

ChDir MyPath
Set rng = Range("A1:IV1")
rng.ClearContents
Set rng = Range("A3:IV5005")

--------------------

--
Zlord
------------------------------------------------------------------------
Zlord's Profile: http://www.excelforum.com/member.php...o&userid=27519
View this thread: http://www.excelforum.com/showthread...hreadid=470325

--

Dave Peterson