Приветствую коллеги! Жду ваших ответов. Заранее благодарю!

Спасибо ROKO!

ну это конечно "достойный вариант", только в семерке он не работает.

Настройки рабочей книги. Закладка Exits. Название Вашего макроса(Выполнить макросы при актуализации)

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

добавьте в книгу новый модуль VBA с кодом:

Public Sub UpdateBook(ParamArray params())
" varname(0) - имя провайдера данных
" varname(1) - имя запроса
" varname(2) - имя контрола
End Sub

далее сохраните книгу в bex и в свойствах книги (bex) укажите макрос <имя модуля>.UpdateBook

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

Public Sub CallBack(ParamArray args() As Variant)
If args(0) = "Провайдер данных" Then
'Ваш макрос
End If
End Sub

Потом в настройках раб.книги в Exits указывается CallBack

Я создал модуль с данным кодом и после if написал свой макрос и поставил в автозапуск CallBack

Public Sub CallBack(ParamArray args() As Variant)
If args(0) = "DATA_PROVIDER_1" Then
Dim i As Integer
For i = 1 To 1000
If Worksheets("Лист1").Cells(i, 1) <> "" Then Worksheets("Лист1").Cells(i, 2) = i
Next i
End If
End Sub

Чет макрос молчит не отрабатывает. В чем косяк?

Усе разобрался
В модуле книжки DefaultWorkBook ищем процедуру call back.
И добавляем туда

Sub CallBack(ParamArray varname())
On Error Resume Next
Dim lColumn As Integer
Dim lRange2 As Range
Dim lGridTitle As String
Dim lName As Name


If varname(0) = "DATA_PROVIDER_1" Then
Set book = ThisWorkbook.Worksheets("Лист1")
Dim i As Integer
For i = 1 To 1000
If book.Cells(i, 1) <> "" Then book.Cells(i, 2) = i
Next i
End If