you can also set the Bar4 (green) to "Bring Forward" and use this code (same as #5):
Sub RunStatusBar4(cellNum As Integer, totalCells As Integer) Dim h As Integer
With UserForm1
'.Bar4.Height = barsizeGlobal * (cellNum / totalCells)
'.Bar4White.Height = barsizeGlobal - (barsizeGlobal * (cellNum / totalCells))
With .Bar4
h = barsizeGlobal * (cellNum / totalCells)
.Top = barsizeGlobal - h
.Height = h
End With
.FrameProgressBarFull.Caption = Int((cellNum / totalCells) * 100) & "%"
End With
End Sub
Private Sub UserForm_Initialize()
With Me.Bar4
.Height = 0
.Top = barsizeGlobal
End With
End Sub
Private Sub CommandButton1_Click()
ThisWorkbook.runit
End Sub