Looping через все листы

Question

Я пытаюсь пройти через все листы в книге. У меня есть следующий код, и он отлично работает; единственная проблема заключается в том, что он работает только при запуске макроса на первом листе; если я делаю это в любом другом, он просто останавливается после первого цикла.

WS_Count = ActiveWorkbook.Worksheets.Count 
    For i = 1 To WS_Count 
     Dim ws1 As Worksheet 
     Set ws1 = ThisWorkbook.ActiveSheet 
     'if sheet contains evdre 
     Set c = ws1.Cells.Find("blabla") 
     If Not c Is Nothing Then 
      'do things 
     End If 
    Next i 

Я не уверен, что если этот вопрос в связи с тем, что макрос всегда должен быть запущен на первом листе, или если есть что-то неправильно в коде. Спасибо за любую помощь

EDIT В разделе «do sth» я фактически создаю скрытые листы (скрытая копия той, в которой я активна); может ли это сделать счет? и, таким образом, работают только в первом листе

Answer 1

Dim ws As Worksheet, c as range 
    for each ws in ThisWorkbook.WorkSheets 
    Set c = ws.Cells.Find("blabla") 
    If Not c Is Nothing Then 
     'do things 
    End If