VBA如何检查工作表名称是否为数字

Question

我在VBA sub中输入了以下代码：

Sub copy2sheet()
Dim wkSht As Worksheet    
    For Each wkSht In Sheets
        If IsNumeric(wkShrt.Name) Then
            Worksheets("Anleitung").Range("A1") = "a"
        Else
            Worksheets("Anleitung").Range("B1") = "a"
        End If
    Next
End Sub

我需要在下面的过程中继续使用那些具有数字名称的表格（它们都是“yymmdd”形式）。 但是，执行它会给我一个424运行时错误。

有什么想法吗？

谢谢！

Answer 1

第4行有一个拼写错误，它给出了Error 424 Object Required：

If IsNumeric(wkShrt.Name) Then

应该是

If IsNumeric(wkSht.Name) Then