[korotetsky]

наткнулся на фигню. неприятную.

записал макрос, смысл таков:
копирование листа в новый и задание ему определенного имени (предваоительно удалив существующий)
далее на новом листе выделяется фрагмент и сортирует по заданым критериям
потом задается область печати и тыцькается в нужную ячейку (таблица хитрая - с закреплением областей, группировками ячеек и прочей байдой).

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

Run-time error '1004':
Метод Select из класса Range завершен неверно

лист копирует, сортировать не хочет, запнувшись на ошибке с выделением.
не соображу куда рыть и как эту гадость заставить работать
вот сам текст, ошибается на красном:

    Sheets("calendar").Delete
    Sheets("total").Select
    Sheets("total").Copy Before:=Sheets(2)
    Sheets("total (2)").Select
    Sheets("total (2)").Name = "calendar"
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    Range("A8:AA122").Select
    Range("AA122").Activate
    Selection.Sort Key1:=Range("L8"), Order1:=xlAscending, Key2:=Range("C8") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Range("A1:AA130").Select
    Range("AA130").Activate
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AA$130"
    Range("D8").Select

есть у кого-нибудь мысли?