実行中のパス、ブック名、シート名を取得する

    Dim WBK As Workbook               ' 各ブック名
    Dim bookName As String            ' 自ブック名


    Set WBK = ThisWorkbook            ' 自ブック
    bookName = WBK.Name               ' 自ブック名
   

    For Each WBK In Workbooks
        ' 自ブック以外を取り込む
        If WBK.Name <> bookName Then
            Debug.Print "　《パス名》" & WBK.Path _
                        & "　《ブック名》" & WBK.Name _
                        & "　《シート名》" & WBK.ActiveSheet.Name
        End If
    Next WBK
   
    ' 自ブックをアクティブにする
    ThisWorkbook.Activate