Excel VBA - 获取应用程序定义或对象定义的错误

Question

我创建了一张工作表，其中我有所有工作表名称，然后使用数据验证创建了该数据的下拉列表，当我创建下面的代码并检查时，一切都很好，但是当我正在处理其他工作时它会抛出错误单张。

当我点击其他下拉列表时，此代码会出现错误＆＃34;应用程序定义或对象定义错误＆＃34;

请帮助我，并帮助我理解为什么即使执行此代码，下面的代码也会出错。

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer

x = 2
sheets("all sheet names").Range("A:A").Clear
For Each ws In Worksheets
    sheets("all sheet names").Cells(x, 1) = ws.Name
    x = x + 1
Next ws

End Sub