質問: nothing end sub
回答: sub try() dim wb as workbook for each wb in workbooks if wb.name = thisworkbook.name then msgbox "このブックだよ " & wb.name else msgbox "違うブックだよ " & wb.name end if next end sub 開いているブックのうち自bookかそうでないかは、 こんな感じでわかるかな? その判定結果で変数へのセットを変えてみては?