Not exactly as requested - but produces the required results (?)
'-----------------------------------------------------------------
Dim MyBookName As String
Dim MyPath As String
Dim MyDrive As String
'----------------------
MyBookName = ActiveWorkbook.Name
MyPath = ActiveWorkbook.Path
MyDrive = Left(MyPath, 2)
MsgBox (MyDrive & vbCr & MyPath & vbCr & MyBookName)
'-----------------------------------------------------------------------


---
Message posted from http://www.ExcelForum.com/