Progress Indicator code placement

Hi All

I got code for a progress Indicator from the Excel Easy website but I'm not certain where to put my specific code which will allow for the indicator to run. All i want to do is show the progress indicator running while workbook is saving. Any feedback please.

UserForm55 is my Progress Indicator with the following code:

Private Sub UserForm_Activate()
code
End Sub

Herewith the code for Code Module

Sub code()
Dim i As Integer
Dim pctCompl As Single
For i = 1 To 100
'ActiveWorkbook.Save
Unload UserForm55
pctCompl = i
progress pctCompl
Next i
End Sub

Herewith the code for Progress Module

Sub progress(pctCompl As Single)
UserForm55.TEXT.Caption = pctCompl & "% Completed"
UserForm55.BAR.Width = pctCompl * 2
DoEvents
End Sub