VBA двойной петли листов и ячеек

Question

пожалуйста, смотрите код ниже.Это работает хорошо, но когда я пытаюсь добавить дополнительный цикл ко всем листам, это дает мне ошибку несоответствия 13

Этот работает

Sub ostdat()

Dim val As String
val = InputBox(Insert)
For Each cell In Range("d2:d20")
If cell = val Then
cell.Interior.ColorIndex = 30
End If
Next cell

End Sub

Но этот не работает, я добавилцикл только листов

Sub ostdat()
Dim val As String
dim ws as worksheet
val = InputBox(Insert)
For Each ws In Worksheets
ws.Activate
For Each cell In Range("d2:d20")
If cell = val Then
cell.Interior.ColorIndex = 30
End If
Next cell
Next ws
End Sub

По сути, я пытаюсь сделать цикл для всех листов и для всех ячеек в столбце d и выделить все ячейки, значения в ячейке которых соответствуют критериям из папки входящих сообщений (например, «X130»).).

спасибо Дэн

Answer 1

Sub ostdat()
Dim val As String
Dim ws As Worksheet
Dim c As Range

val = InputBox("Enter Number")
For Each ws In Worksheets
    For Each c In ws.Range("d2:d20")
         If c = val Then
              c.Interior.ColorIndex = 30
         End If
    Next c
Next ws
End Sub