VBA如何檢查如果工作表名稱是我在VBA子進入下面的代碼編號

Question

：

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