The progress indicator uses the three variables
Dim oFrm As New frmProgress
Dim PortionDone As Double
Dim i As Long

Remove all the references to the three variables.