Excel VBAの小ネタ ３つ

（１）全てのシート名を取得する

for each a in ActiveWorkbook.Sheets : Debug.Print a.name : next 
Sheet1
Sheet2
Sheet3

（２）特定のシートにある複数のセルの内容を取得する

for each a in ActiveWorkbook.Sheets("sheet1").range("B1:B3") : Debug.Print a.value : next 
a
b
c

（３）セルに入れたシート名にリンクを貼る

for each a in ActiveWorkbook.Sheets("sheet1").range("A1:A3") : a.HyperLinks.Add Anchor:=a, Address:="", SubAddress:=a.value & "!A1" : next