请教如何在这段代码中设定公式？

zerk

我想在代码中用公式写所有工作表的 hyperlink，但是 hyperlink 一句总是出错，请高手指点一下。



Dim S_Name, S_Formula As String, Y As Integer
Y = 1

For i = 1 To Worksheets.Count
S_Name = Worksheets(i).Name
       If S_Name <> "目录" Then
       Worksheets("目录").Range("b" & 2 + Y).Value = S_Name
       S_Formula = "=HYPERLINK('#' & b" & 2 + Y & " & '!a1','点击选择[' & B" & 2 + Y & " & ']')"  '就是这句，formula总是不对，请指教！
       'MsgBox S_Formula  
      Worksheets("目录").Range("c" & 2 + Y).Formula = S_Formula
       Y = Y + 1
       End If
Next i

老鬼

S_Formula = "=HYPERLINK(""#" & Range("b" & 2 + Y) & "!a1"",""点击选择[" & Range("b" & 2 + Y) & "]"")"