Здравствуйте, уважаемые знатоки.
Мне нужно составить Sub в макросе, который бы подводил итоги по большой таблице с неподписанной кучей строк и столбцов.
Пишу конструкцию:
Sub Итог_по_()
' Итог_по_ Макрос
' Макрос записан 17.08.2004 мной
Cells.Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
End Sub
Но Sub до конца не выполняется, выскакивает предупреждение Excel: "Не удаётся определить строку списка или выделенного фрагмента с необходимыми подписями столбцов
* Чтобы использовать данные первой строки выделенного фрагмента или списка в качестве подписей, нажмите кнопку "OK"
* И ещё 3 длинных совета ... И предложено как обычно 3 варианта ответа, расположенные на кнопках предупреждения: "OK", "Отмена" и "Справка".
Внимание ! Как обойти это предупреждение или как автоматически ответить на него средствами VBA ?

К сожалению Ваш метод не сработал -
"надо бороться с причиной, а не со следствием. Используй свойство DisplayAlerts
Ex:

'создали объект
Set XlsApp = CreateObject("Excel.Application")
'отключаем реакцию Excel на события, чтобы ускорить вывод информации
XlsApp.EnableEvents = True
'отключаем вывод сообщений
XlsApp.DisplayAlerts = False"

В ответ Excel всё равно рисует предупреждение, описанное вначале темы, и предлагает нажать "Да", "Нет" или "Справка".

А насчёт SendKeys(OK) - Excel рисует "Error" т останавливается.

Как тут быть ?
Как удалить ненавистное окно или нажать за человека кнопку "OK" ?

marvan Серый_К сожалению Ваш метод не сработал
это сильно напоминает звениящий будильник без батарейки.
Код можно помотреть?
Код не работает следующий:
Sub Итог_по_()
' Итог_по_ Макрос
' Макрос записан 17.08.2004 мной
Range("A1") = "№"
Range("B1") = " Звонивший абонент"
Range("C1") = "Сумма"
Cells.Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
'создали объект
Set XlsApp = CreateObject("Excel.Application")
'отключаем реакцию Excel на события, чтобы ускорить вывод информации
XlsApp.EnableEvents = True
'отключаем вывод сообщений
XlsApp.DisplayAlerts = False
End Sub

Буду рад ценным советам.

marvanSub Итог_по_()
' Итог_по_ Макрос
' Макрос записан 17.08.2004 мной
Application.DisplayAlerts = False
Range("A1") = "№"
Range("B1") = " Звонивший абонент"
Range("C1") = "Сумма"
Cells.Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub
Огромное спасибо. Оно заработало ! И без каких-либо предупреждений ! Просто песня !