Макрос для всех листов в книге

[Rok]

Господа, подскажите пожалуйста можно ли применить макрос (состоит из семи макросов поменьше), который обрабатывает таблицу на листе, группируя данные в необходимом для создания сводной таблицы порядке, ко всем листам в книге с одинаковыми таблицами, но разными данными

[IgorGO]

То, что Вы делали для одного листа берете в "скобки"
With Sheets(i)
End With
везде где требуется ставите точки например было cells(...) ставите .cells(...)
подставляя вместо i нужные номера листов выполняеете эту процедуру для каждого из них.
for i = 1 to 10
With Sheets(i)
' ваш код дополненный проставленными перед некоторыми обьектами точками.
End With
next

[Rok]

Спасибо большое за ответ, но прочитал его раз двадцать, поискал, куда кавычки ставить, но так и не понял Я в этом деле так ювелирно не умею, только молотом из камня могу, кажется столько лишнего делаю, но пока как умею, всё равно лучше чем в ручную. Покажите на файле пожалуйста, надеюсь он корректно отобразит все.

[Rok]

Вроде догнал, но собака почему то на одном листе все 2 раза проделывает , помогите пожалуйста!!!!

Sub Макрос8()
'
' Макрос8 Макрос
'
' Сочетание клавиш: Ctrl+ь
'
    Range("A1").Select
    Application.Run ("Anil_09_10.xlsm!Макрос1")
    Application.Run ("Anil_09_10.xlsm!Макрос2")
    Application.Run ("Anil_09_10.xlsm!Макрос4")
    Range("D1").Select
    Application.Run ("Anil_09_10.xlsm!Макрос3")
    Columns("F:F").Select
    Application.Run ("PERSONAL.XLSB!цифры_в_месяца")
    Range("G2").Select
    Application.Run ("Anil_09_10.xlsm!Макрос5")
    Application.Run ("Anil_09_10.xlsm!Макрос6")
    Application.Run ("Anil_09_10.xlsm!Макрос7")
    With Sheets(1)
    End With
    For i = 1 To 2
    With Sheets(2)
 '
    Range("A1").Select
    Application.Run ("Anil_09_10.xlsm!Макрос1")
    Application.Run ("Anil_09_10.xlsm!Макрос2")
    Application.Run ("Anil_09_10.xlsm!Макрос4")
    Range("D1").Select
    Application.Run ("Anil_09_10.xlsm!Макрос3")
    Columns("F:F").Select
    Application.Run ("PERSONAL.XLSB!цифры_в_месяца")
    Range("G2").Select
    Application.Run ("Anil_09_10.xlsm!Макрос5")
    Application.Run ("Anil_09_10.xlsm!Макрос6")
    Application.Run ("Anil_09_10.xlsm!Макрос7")
    End With
    Next
    Columns("G:G").Select
    Selection.Style = "Comma"
    Range("G1").Select
End Sub

[EducatedFool]

состоит из семи макросов поменьше

Это называется поменьше?
Каждый макрос можно сократить по объёму в 20 раз, при этом они будут работать в 10 раз быстрее.

Достаточно убрать все .Select, .Activate
и удалить строки, начинающиеся с ActiveWindow.

Кроме того, в случае с вашими макросами вариант с With Sheets(i) работать не будет до тех пор, пока вы не оптимизируете макросы.

Ну или используйте такую конструкцию (поскольку ваши макросы работают сейчас только с активным листом):

Sub Макрос8()
    Application.ScreenUpdating = False
    For i = 1 To 2
        With Sheets(2)
            .Select
            Range("A1").Select
            Макрос1
            Макрос2
            Макрос4
            Range("D1").Select
            Макрос3
            Columns("F:F").Select
            Application.Run ("PERSONAL.XLSB!цифры_в_месяца")
            Range("G2").Select
            Макрос5
            Макрос6
            Макрос7
        End With
    Next
End Sub

[Rok]

IgorGO, огромное спасибо еще в четверг все получилось!!!
EducatedFool, тоже огромное спасибо, что такого Фула проидюкетели, так намного чище и приятней смотрится, когда все лишнее уберешь, теперь заморочился везде лишнее убираю, еще бы мне научится сразу без этого делать!!!!