как перебрать все листы, кроме диаграмм (эксель2003)??

[Bape}l{ka]

подскажите, какк перебрать все листы, кроме диаграмм (диаграмма на отдельном листе)?? никак не могу придумать как записать условие Т_Т

    For Each Sh_ In ActiveWorkbook.Sheets
        If Not Charts Then   ' РУГАЕТСЯ ТУТ
            Sh_.Activate
            With ActiveSheet
                .Columns("A:A").Replace What:="_", Replacement:=" ", _
                  LookAt:=xlPart, ReplaceFormat:=True
            End With
        End If
    Next Sh_

[IgorGO]

диаграммы не являются элементами коллекции Sheets. перебирая листы Вы не нарветесь на диаграмму, другое дело Вам надо проверить не содержит ли контрктный лист диаграммы, тогда
For Each Sh_ In ActiveWorkbook.Sheets
If Sh_.Charts.count = 0 Then ...

[EducatedFool]

диаграммы не являются элементами коллекции Sheets

Ещё как являются...

Проверяем:

Sub test1()
    For Each sh In ThisWorkbook.Sheets: Debug.Print sh.Name: Next sh
End Sub

Результат:

Лист3
Диаграмма1
Лист2
Лист1

Sub test2()
    For Each sh In ThisWorkbook.Worksheets: Debug.Print sh.Name: Next sh
End Sub

Результат:

Лист3
Лист2
Лист1

Вывод: используем коллекцию Worksheets вместо Sheets - и диаграммы нам не попадутся.

[IgorGO]

о каких диаграммах речь идет, просветите темного...

[Hugo121]

Речь о листах диаграмм.
Вставить->Лист->Диаграммы.
Была уже дискуссия на эту тему на Plанете...
И кстати тут все не без греха Но я стараюсь учитывать...

[IgorGO]

опа, вот это номер.
спасибо, Игорь.
не использовал никогда сам и не встречался ни разу в свей деятельности, ща посмотрим это еще для чего надо

[Hugo121]

Я разок столкнулся, да и на форумах люди жаловались.
Можно легко создать комбинацией клавиш (какой, не помню, но случалось создавать).
На них нет ячеек, поэтому при работе с sheets и с ячейками сразу вылезает ошибка.
А ещё есть лист макросов! Кстати, если его кодом сделать veryhidden, то вообще цирк - его нигде не видно (даже в редакторе), но в sheets.count он есть, и имеет естественно свой index, что может сбить всю нумерацию в макросе...

[Bape}l{ka]

создается комбинацией клавиш: выделить диапазон => F11 (и еще есть какая-то другая комбинация, не помню)

EducatedFool, спасибо!! не знала таких тонкостей)) у меня тоже была мысль, что вроде они не должны относиться к рабочим листам..

[kuklp]

Если не ошибаюсь, я это Валерию тут с год назад объяснял. Чтоб выяснить, какие бывают листы, ПКМ на ярлыке любого - Добавить. См.скрин. Из всех на нем только один Worksheet.