ProgressBar

[masterenergy]

Добрый день! Будьту так любезны помогите Знаю что сейчас начнёте тыкать носом в поиск и всё прочее, но никак не получается приделать ProgressBar для этого макроса Не подскажите как можно приделать?
Или как вариант, как запукать ProgressBar во время выполнения каких либо пересчётов формул и выполнения любых макросов (чёто кажется что это не возможно).

Private Sub Worksheet_Change(ByVal Target As Range)
' If Target.Count > 1 Then Exit Sub
Dim i As Integer
Dim cell As Range
For Each cell In Target
For i = 1 To 15
If cell = Sheets("периодика").Cells(i, 1) Then
cell.Clear
Exit For
End If
Next i
Next cell
End Sub


P.S. Отдельная благодарность Dophin за код