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