ハイパーリンク作成（ｼｰﾄ）

Sub link_create() 

 　Dim i, j As Long 

 　Dim ws As Worksheet 

 　Set ws = Worksheets.Add(before:=Worksheets(1)) 

 　j = 1 

　 For i = 2 To Worksheets.Count ws.Hyperlinks.Add anchor:=ws.Cells(j, 1), Address:="", _ 

　　　　SubAddress:="'" & Worksheets(i).name & "'!A1", _ TextToDisplay:=Worksheets(i).name 

 　　j = j + 1 

 　Next

 End Sub