EXCEL の複数シートを選択するVBA

質問

お世話になります。

複数のシートがあるEXCELファイルで、特定のセル（A1）に「オリンピック」と入力れているワークシートをすべて選択するマクロを組みたいのです。ご教示よろしくお願い致します。

回答No.1

keithin · ベストアンサー

sub macro1()
　dim flg as boolean
　dim i as long

　flg = true
　for i = 1 to worksheets.count
　　if worksheets(i).range("A1") = "オリンピック" then
　　　worksheets(i).select flg
　　　flg = false
　　end if
　next i
end sub

みたいな。

お礼

ありがとうございました！

早速、試したところ上手くいきました。

ホントに助かりました。