Excel VBAの各シートのA1セルにハイパーリンクを設定するにはどうすればよいですか？

Question

Excelの座席の状態として...

複数の座席があります。

最初のシート名が「リスト」

他の席がリストシートからハイパーリンクに移動することが可能に取得することです。

座席名は「example1」、「example2」です。

各座席

Answer 1

のA1セルにそれは私が次のように質問があることを前提としていますので、ここで要求されているかを理解するのは難しい「リスト」シートにVBAの設定のハイパーリンクを教えてください。

"VBAを使用してブックの各シートのハイパーリンクをセルA1に作成し、名前リストを持つシートにリンクする方法を教えてください。

Dim ws As Worksheet 

For Each ws In ThisWorkbook.Worksheets 
    If ws.Name = "List" Then 
     'Do nothing for the list sheet. 
    Else 
     ws.Hyperlinks.Add Anchor:=ws.Range("A1"), Address:="", _ 
       SubAddress:="List!A1", TextToDisplay:="Go to List Sheet" 
    End If 
Next 

Answer 2

このコードは、すべてのワークシートのA1をセルにリンクする「一覧」ワークシート上のメニューを生成します。

リンクテキストはワークシート名に設定されています。

Sub Add_Hyperlink() 

Dim wsSheet As Worksheet 

Worksheets("List").Range("A1").Select 
    For Each wsSheet In Worksheets 
    ActiveCell.Offset(1, 0).Select 
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ 
    wsSheet.Name & "!A1", TextToDisplay:="" & wsSheet.Name 
Next wsSheet 

End Sub