UserForm displays incorrectly

The code below is intended to run several subs to do calculations and should pop up a userform with a text message (form is called ProgressFrm) that the calculations are in progress. The userform contains only a text label. The form has yellow background as does the label and the text is dark. It is a non-modal or modeless form so it will stay open until unloaded. When I click the rectangle on the worksheet, the form appears but the background and text area are blank (white.) When I run in the VBA debugger and step through, the form appears correctly when ProgressFrm.Show is executed. The balance of the code executes correctly and the form unloads as expected. Why the problem when not in the debugger.? If I place a msgbox statement after the ProgressFrm.Show statement, the form displays properly when the rectangle is clicked but this defeates my intent to not require the extra user action.

Sub Rectangle6_Click()
If IsEmpty(Range("SelectedDependent")) Then
MsgBox "Please Select A Dependent Variable for Regression"
Exit Sub
End If
ProgressFrm.Show
Application.ScreenUpdating = False
Call ClearRegressionResults
Call TestRegression
Worksheets("GetData").Select
Application.ScreenUpdating = True
Unload ProgressFrm
End Sub

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