диапазон ячеек в excel

[studentki]

как пройтись по определённому диапазону ячеек,пока не встретится определённое значение,если встретилось,например это значение "привет",то добавить в счётчик единицу(1) и перейти к следующей книги?

[slan]

for each wb in workbooks
for each sh in wb.worksheets
for each r in sh.usedrange
if r.text="привет" then n=n+1
next r
next sh
next wb

[Hugo121]

А выход, если нашли?

Sub test()
    For Each wb In Workbooks
        i = 0
        Do
            i = i + 1
            For Each r In wb.Worksheets(i).UsedRange
                If r.Text = "привет" Then n = n + 1: Exit Do
            Next r
        Loop While i < wb.Worksheets.Count
    Next wb
MsgBox n
End Sub

[slan]

goto на мой взгляд лучше:

For Each wb In Workbooks
    For Each sh In wb.Worksheets
        For Each r In sh.UsedRange
            If r.Text = "привет" Then n = n + 1: GoTo nx
        Next r
   Next sh
nx:Next wb

[Hugo121]

GoTo не по феншую
Хотя да - тут преимущество налицо

[DiemonStar]

GoTo не по феншую

А иногда и на кривой дорожке к эксцепшн-ам... Stack overflow и всё в таком духе..