在VBA中始终更改的公式中引用工作表

我正在尝试编写一个从另一个工作表中复制数据的macros。 我遇到了如何在公式中正确input工作表名称的麻烦。 摘要工作表是目标和第五个工作表,它将每天更改(格式为x.xx_1),是源。 这是我的代码:

Sub steadf() Dim SN As String SN = InputBox("Enter Tab Date - 2.24, 10.24, etc.") Worksheets(5).Name = SN & "_1" Sheets("Summary").Select Range("D24").Select ActiveCell.Offset(0, 3).Formula = "=SN" & "_1" & "!" & "Cost" End Sub 

当我运行这个时,G24中的公式是

 =SN_1!Cost 

我正在使用的公式是='2.24_1'!Cost 。 我将不胜感激任何帮助。 提前致谢。

尝试这个:

 Formula = "='" & SN & "'!Cost"