2008-08-25 ■ vba メモ Range(Cells(MyCount + 5, 3)).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _ SubAddress:="'" & Worksheets(MyCount + 5).name & "'!a1", _ TextToDisplay:=Worksheets(MyCount + 5).name