Attribute VB_Name = "Ä£¿é2"
Sub Macro2()
Dim tuhao As Integer
Dim name, name1 As String
    tuhao = InputBox("ÇëÊäÈëͼºÅ£º")
    name = "'" + "fig" + Trim(Str(tuhao)) + "'!A1"
    name1 = "'" + "fig" + Trim(Str(tuhao)) + "'"
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=name, TextToDisplay:=name
    ActiveCell.FormulaR1C1 = name1
End Sub