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

我在我的VBA子文件中input了下面的代码：

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”forms）。 但是，执行它给我一个424运行时错误。

有任何想法吗？

谢谢！

Answer 1

你有一个第4行Error 424 Object Required ，给出了Error 424 Object Required ：

 If IsNumeric(wkShrt.Name) Then 

应该

 If IsNumeric(wkSht.Name) Then