' процедура обработки нажатия кнопки "Выбор действия"
Sub Select_Click()
Dim MyAssistant As Assistant ' Создание помощника
Dim MyBalloon As Balloon  '  Создание вспомогательного экрана выводимым помошником
Set MyAssistant = Assistant
Set MyBalloon = MyAssistant.NewBalloon
MyAssistant.Filename = "C:\Program Files\Microsoft Office\Office10\Clippit.acs" 'путь хранение помошника C:\Program Files\Microsoft Office\Office10
MyAssistant.Animation = msoAnimationThinking '
MyAssistant.MoveWhenInTheWay = True 'перемешение помошника на свободную часть экрана
With MyAssistant.NewBalloon
  .BalloonType = msoBalloonTupeBullets
  .Heading = "Выберите действие" ' заглавие выводимой таблички
  .Text = "Что сделать?" ' под заголовок
  .Labels(1).Text = "Сохранить исходные данные" 'текст номер 1
  .Labels(2).Text = "Востановить данные из архива" 'текст номер 2
  .Labels(3).Text = "Заполнить исходную таблицу единицами" 'текст номер 3
  .Labels(4).Text = "Заполнить исходную таблицу нулями" 'текст номер 4
.Mode = msoModeModeless
  .Callback = "Click_Label"
  .Show
'MyBalloon.Labels(4).
End With 'завершение процедуры With
'MyBalloon.Show 'завершение процедуры MyBalloon
End Sub

Sub Click_Label(bal As Balloon, lbl As Long, _
 lPriv As Long)
    Select Case lbl
    Case 1
    ' Сохранить исходные данные
    Case 2
        ' Востановить данные из архива
    Case 3
        Call FillGrid(1) ' Заполнить исходную таблицу единицами
    Case 4
        Call FillGrid(0) ' Заполнить исходную таблицу нулями
    End Select
    bal.Close
End Sub

Sub FillGrid(n As Integer)
    For i = 1 To 7
      For j = 1 To 6
        SourceData(j, i) = n
        Worksheets("Лист1").Cells(i + 1, j + 2) = n
      Next j
    Next i
End Sub

  .Labels(1).Text = "Сохранить исходные данные" 
  .Labels(2).Text = "Востановить данные из архива"