Getting the working directory of a workbook?

[wageslave101]

Is there an easy way to grab the working directory of a workbook?

I have two workbooks that read and write some of their data to a third shared workbook.

If the Share folder that they all live in gets changed their references to one another break.

So I'm trying to workout if I can easy set their working directory to a variable and then just use that variable throughout the workbooks.

thanks
wageslave101

 

[VoG]

Try

Sub directry()
Dim MyPath As String
MyPath = ThisWorkbook.Path
MsgBox MyPath
End Sub