Database 禁用命令按钮：Can'；t通过VBA定位命令按钮；运行时错误9

我试图禁用一个命令按钮，该按钮复制一行数据并解析到另一个工作表中。这部分工作正常，我在单独的工作表中尝试了以下代码，一切正常。当我将代码放入创建的excel数据库的VBA中时，收到一个错误：“运行时错误9：下标超出范围” 我想我没有把地址正确地输入文件。有什么想法吗

这是我的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Last_row As Long
Last_row = Range("A" & Rows.Count).End(xlUp).Row
If Worksheets("NewQuotes").Range("AM" & Last_row).Value <= Now() Then               
Worksheets("NewQuotes").CommandButton2.Enabled = False                           
Worksheets("S:\PRICE LISTS 1\[Sales Database.xlsm]NewQuotes").Shapes("CommandButton2").ControlFormat.Enabled = False  
End If
End Sub

Private子工作表\u selection更改（ByVal目标作为范围）
最后一排的颜色和前面一样长
最后一行=范围（“A”&Rows.Count）.End（xlUp）.row
如果工作表（“NewQuotes”）.Range（“AM”和Last_row）.Value引用命令按钮，请使用以下语法：

如果代码和命令按钮（名为CommandButton2）位于同一工作簿中：

ThisWorkbook.Worksheets("sheet_name").CommandButton2.Enabled = False

如果它们在不同的书籍中：

Workbooks("book_name.xlsm").Worksheets("sheet_name").CommandButton2.Enabled = False

哪一行代码导致错误？“当我在数据库中尝试代码时”是什么意思？你指的是什么数据库？Access？我在第一张工作表上创建了excel数据库（Sales database.xlsm）；工作表2、3和4是要分析信息的工作表。哪行代码导致错误？错误在：If工作表（“NewQuotes”）。范围（“AM”和最后一行）。值Ooops。否，但它只需要匹配已指定给控件的名称。我会修好的。