Когда идет ДОЛГИЙ процесс кокого-нибудь вычисления, иногда возникают сомнения: а вычисляется ли, не завис ли. Реализованная идейка ! Рядом с кнопкой на листе выбираю область не взирая есть в ячейках данные или нет и... Впрочем смотрите сами. Может пригодится.
Private Sub CommandButton1_Click()
Dim mas, mascolint, mascolfont
''Сохраняем значения в массивчик
mas = Range("E9:I14")
''Сохраняем цвета ячеек в массивчик
mascolint = Range("E9:I14").Interior.ColorIndex
''Сохраняем цвета символов каждой ячейки в массивчик
mascolfont = Range("E9:I14").Font.ColorIndex
''Очищаем область
Range("E9:I14") = ""
''окрашиваем область с синий цвет
Range("E9:I14").Interior.ColorIndex = 5
''задаем цвет символов белый
Range("E9:I14").Font.ColorIndex = 2
''Выводим стандартное сообщение
Range("F11") = " ЖДИТЕ "
Range("F12") = "ВЫПОЛНЯЮ"

k = 100 / 2000
p = 0

For i = 1 To 2000
Range("H12") = Int(p)
Range("I12") = "%"
p = p + k

'' Здесь что-нибудь вычисляется

Next i


''востанавливаем исходные цвета и значение ячеек области
Range("E9:I14").Interior.ColorIndex = mascolint
Range("E9:I14").Font.ColorIndex = mascolfont
Range("E9:I14") = mas
End Sub

vkodorзачем изобретать велосипед
в vba есть стандартный Microsoft ProgressBar1 Control
c:\WINNT\system32\MSCOMCTL.OCX
подключай его и работай с ним

Прошу подсказать: Как подключить. Как с ним работать. Может примерчик на мыло talgat@bsr.ee или на форум ?

Ща буду пробовать. Всем спасибо

[quot 100g
Примерчик в файле.[/quot]

Примерчик работает. Но скажу честно не понятно. На Лист1 кнопка. В редакторе VBA на Лист1 пусто ??? В модуле
Sub Run1()
Load MyProgress
MyProgress.ProgressBar1.Min = 1
MyProgress.ProgressBar1.Max = 10000
MyProgress.Show

For i = 1 To 10000
MyProgress.ProgressBar1.Value = i
Next i
MyProgress.Hide

End Sub
И даже в режиме конструктора кнопка на листе работает.

Буду разбираться следуя указаниям vkodor. пасибо