1: SubHyperMokuji() 2: Set c =ActiveWindow.RangeSelection.Cells(1,1) 3: For i =ActiveSheet.Index+1ToSheets.Count 4: Set s =ActiveWorkbook.Sheets(i) 5: ActiveSheet.Hyperlinks.Add c,"","'"& s.Name&"'"&"!A1","", s.Name 6: Set c = c.Offset(1,0) 7: Next 8: End Sub
