スキルアップ・問題解決なら、モーグにおまかせ！

あるエクセルファイルをシート毎にセーブするアドインを作成しております。
エクセルファイルと同じパス（場所）にシートを保存したいのですが、
『ThisWorkbook.Path』を指定するとaddinsの格納パスを指してしまいます。
エクセルファイル自身のパスを取得する方法はありませんか？
 
For Each SheetName In Worksheets
    SheetName.Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & SheetName.Name
    ActiveWorkbook.Close
Next SheetName

＞あるエクセルファイルをシート毎にセーブする
 
そのエクセルファイルは、どのようにしてそこにあるんでしょうか？

(1)既存のファイルを開いたものなのか、
(2)templateを指定してWorkbooks.Addを使って新たに作成したファイルなのか、

Sub test()
    Dim ws As Worksheet
    Dim strPath As String
    
    If ActiveWorkbook.Path = "" Then
        strPath = CurDir
        '別途フォルダを指定させてもよいでしょう。
    Else
        strPath = ActiveWorkbook.Path
    End If

    For Each ws In Worksheets
        ws.Copy
        ActiveWorkbook.SaveAs strPath & "\" & ws.Name
        ActiveWorkbook.Close
    Next
End Sub

ThisWorkbook.Pathでは実行しているブックのパスになります。
ThisWorkbook.Pathの部分をActiveWorkbook.Pathとすると、
ActiveWorkbookはコピー後のブックになっていて未保存のため、パスを取得できません。
予めパスを取得しておかない場合は、SheetNameのブックのパスということで、
ThisWorkbook.Pathの部分をSheetName.Parent.Pathにすると元ブックのパスを取得できます。
 
※未保存ブックに対しては別途対策が必要です。

K.Hiwasaさん、ありがとうございます。
『SheetName.Parent.Path』があるのですね。解決しました。