I realize there are other questions on SO regarding animations and progressbars, but they seem to revolve around getting rid of the animation drawn on top of the progress ba
Sub FileSaving()
With barProgress
.Minimum = 0
.Maximum = 100000000
.Value = 100000
End With
For
...
saving_codes
...
With barProgress
.Maximum = .Value * (TotalFilesCount / SavedFilesCount)
End With
Next
End Sub