使用宏在Excel中确定用户定义的工作表名称

Question

我尝试只运行一次宏。宏存储在一个隐藏的工作簿中，该工作簿在用户每次打开Excel电子表格时都会打开。我的公司每周都会生成工作表，并且工作表名称已经提供并且每次都不同。我正在尝试编写一些代码，以便在excel中将变量设置为活动工作表的名称，然后在if语句中使用此变量来防止宏运行两次。

我在下面放置了我尝试过的代码。

Sub Start_Format()

    Dim sName As String

    Set sh = ActiveSheet
    sName = sh.Name

    If Sheets(sName).Range(aac, 1).Value <> "ran" Then
        Application.ScreenUpdating = False
        Call Add_Column
        Call Reorder_Sheets
        Call Formatting
        Sheets(sName).Range(aac, 1).Value = "ran"
    Else
        MsgBox "Macro has already been executed"
    End If

    Application.ScreenUpdating = True

End Sub

我得到了错误

  

应用程序定义或对象定义的错误。