GBKEE

¦^´_ 1# freeffly
   

1. Sub Ex()
   
2.     Dim i%
   
3.     With Sheets(1)
   
4.         For i = 2 To Sheets.Count
   
5.             .Cells(i, "A") = Sheets(i).Name
   
6.             .Hyperlinks.Add Anchor:=.Cells(i, "B"), Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name& & "!A1"
   
7.             Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).[A1], Address:="", SubAddress:=.Name & "!A1", TextToDisplay:=.Name & "!A1"
   
8.         Next
   
9.     End With
   
10. End Sub

½Æ»s¥N½X