Here's one of a few ways:

Sub Demo()
Dim v
Dim WbToOpen
Dim ps As String

ps = Application.PathSeparator

v = Split(ThisWorkbook.FullName, ps)
v(UBound(v)) = "Test2.xls"
WbToOpen = Join(v, ps)
' etc...
End Sub

HTH
--
Dana DeLouis
Win XP & Office 2003


"monir" wrote in message
...
In a VBA Excel macro, how can I identify the full path of "this" opened
workbook test1.xls, and then use it to open another file test2.xls at the
same location ?

Will the procedure change the current folder in the File menu ?

Thank you.