エクセルマクロで複数選択中シート名取得

質問

Excel2000です。
Ctrl+クリックで複数のシートを選択している状態で(作業グループ状態)、
マクロから現在選択中のシート名を知ることはできるのでしょうか？

回答No.2

sakenomo · ベストアンサー

こんなかんじでしょうか。

Sub test()
For Each Sh In ActiveWindow.SelectedSheets
ActiveCell.Value = Sh.Name
ActiveCell.Offset(1, 0).Select
Next
End Sub

お礼

ありがとうございます。
ActiveWindow.SelectedSheetsで思った動作になりました。

回答No.1

imogasi

エクセルのＶＢＥ画面のＶＢＡＰｒｏｊｅｃｔのThisWorkbookのSheetSelectionChangeイベントに
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox ActiveSheet.Name
End Sub
と入れると、シートをクリックするごとに、Ｓｈｅｅｔ１とかＳｈｅｅｔ２とか出ます。
こんな問題ではないですか。