循环通过不同的床单

Question

感谢您对我正在尝试创建的宏的帮助.

我有一个带有一堆工作表的xls文件,其中一些名为"1","2","3",依此类推.我想创建一个只通过那些'数字命名的'工作表循环的宏,因此不是根据下面代码中的索引.(工作表"1"不是工作簿中的第一个工作表).在循环之前,我需要定义单元格范围和工作表.

以下是我的(错误的)尝试.

Sub Refresh ()

Dim i As Integer
Dim rng As Range
Set rng = Range("A10:TZ180")

 For i = 1 To 30

  Sheets(i).Activate
  rng.Select       
  rng.ClearContents
  Application.Run macro:="xxx"

 Next i

End Sub

Answer 1

dim w as worksheet
for each w in activeworkbook.worksheets
  if isnumeric(w.name) then
    w.range("A10:TZ180").clearcontents
    xxx()
  end if
next