目次のようなハイパーリンクを自動生成したい

いつもお世話になっております。
みなさんからのご指導の下、なんとか以下のマクロを作成しました。
まず、（逐次追加される）シート名をセルから参照し、トップページにシート名の一覧を自動生成させ、余分なページを削除するマクロなんですが、ここから各シートへのハイパーリンク（またはそれに代わるもの）を自動作成するマクロを追加したいと考えていますが、いろんなサイトを検索しても、なかなかヒットしませんでした。
どなたかご教示頂きますよう、お願いいたします。

Sub ボタン7_Click()
Dim i As Long
For i = 7 To Worksheets.Count
Worksheets(i).Name = Worksheets(i).Range("B2")
Next i


Dim objSheet As Object
Dim intLoop As Integer
Cells(16, 8).Activate
intLoop = ActiveCell.Row

For Each objSheet In ActiveWorkbook.Sheets
ActiveWorkbook.ActiveSheet.Cells(intLoop, ActiveCell.Column).Value = objSheet.Name

intLoop = intLoop + 1
Next


Range("h16:h21").Delete Shift:=xlUp

End Sub

No.1 ベストアンサー 回答者： merlionXX 回答日時： 2008/05/21 10:18

よくわかりませんが、こんな感じでしょうか？

Sub ボタン7_Click()
Dim i As Long, intLoop As Integer

For i = 7 To Worksheets.Count
Worksheets(i).Name = Worksheets(i).Range("B2")
Next i

With ActiveSheet
.Cells(16, 8).Activate
intLoop = ActiveCell.Row

For i = 7 To Worksheets.Count
.Cells(intLoop, ActiveCell.Column).Value = Worksheets(i).Name
.Hyperlinks.Add Anchor:=.Cells(intLoop, ActiveCell.Column), Address:="", _
SubAddress:=Worksheets(i).Name & "!B2"
intLoop = intLoop + 1
Next

End With
End Sub

この回答へのお礼

merlionXX様
早速のご対応ありがとうございます！
できました！完璧です！
本当に感謝です。

お礼日時：2008/05/21 12:41