For i = 1 To 3
Windows("·s¼W Microsoft Excel ¤u§@ªí.xlsm").Activate
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"·s¼W Microsoft Excel ¤u§@ªí (2).xlsx", SubAddress:=Worksheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
Next i