現在開いているExcelのPathを取得する場合は、下記のようにするといい。
ThisWorkbook.Path
ただ気を付けないといけないのは、絶対パスとしてファイル名を指定する場合には、下記のようにしないといけない。
dim hogehoge as string
hogehoge = ThisWorkbook.Path & "\hogehoge.xls"
Workbooks.Open(hogehoge)
つまり、ThisWorkbook.Pathとファイル名の間に「\」を入れないといけない。