excel - Excel-VBA循环工作表

Question

如您所见，我对 VBA 很陌生。我正在尝试遍历工作簿中的每个工作表，但是当我运行代码时，结果仅适用于活动工作表。

Sub wtf()

Dim rg As Range
Dim cell As Range
Dim ws As Worksheet

Set rg = Range("a2").CurrentRegion

For Each ws In Sheets
For Each cell In rg
    If cell <= 40 Then
    cell.Interior.Color = vbYellow
    End If
Next cell
Next ws

End Sub

标签： excelvba