Hello Mal_In_Huston,

Welcome to the Forum!

The easiest way to correct this problem is to force the UserForm to be redrawn using the Repaint method.
Sub Rectangle6_Click()
If IsEmpty(Range("SelectedDependent")) Then
MsgBox "Please Select A Dependent Variable for Regression"
Exit Sub
End If
ProgressFrm.Show
ProgressFrm.Repaint
Application.ScreenUpdating = False
Call ClearRegressionResults
Call TestRegression
Worksheets("GetData").Select
Application.ScreenUpdating = True
Unload ProgressFrm
End Sub