ハイパーリンク編
全てのシートへのハイパーリンクを作成するには？
'ブック内の全てのシートへのハイパーリンク一覧を作成する例です。
Sub 各シートにハイパーリンク()
Dim W As Worksheet
For Each W In Worksheets
ActiveSheet.Hyperlinks.Add Anchor:= _
Range("A65536").End(xlUp).Offset(1) _
, Address:="", SubAddress:=W.Name & "!A1", TextToDisplay:=W.Name
Next W
End Sub
ハイパーリンクを解除するには？
'アクティブシートのハイパーリンクを解除する例です。
Sub ハイパーリンクを解除()
Dim H As Hyperlink
For Each H In ActiveSheet.Hyperlinks
H.Delete
Next H
End Sub
ハイパーリンクのアドレスを表示するには？
'アクティブシートのハイパーリンクのアドレスを右隣のセルに表示する例です。
Sub ハイパーリンクのアドレスを表示()
Dim H As Hyperlink
For Each H In ActiveSheet.Hyperlinks
H.Range.Offset(, 1).Value = H.Address
Next H
End Sub