Status Bar Steps

I would like the progress bar to update completely when I transfer a file. currently the parameters:
Minimum =0
Maximum =100
setp=20

The problem I have same 10 files to transfer the status bar will move all the way down and look like it full, however if I only have  1 file selected it will only move the 20 steps

Dim cnt As Integer  


 For intloop2 = 0 To SelectedFile_Arr.Count - 1


 cnt += 1
            progBar.Value = cnt
            Application.DoEvents()

next

Select allOpen in new window