I have the following code, which runs a random number generator. The process
takes about 45 seconds to complete, so I would like display a pop-up box to
inform the user to wait for the process to complete. The code runs fine, but
when I add in code to show the userform I've created and then hide it, the
whole things just hangs and never finishes. Does anyone have a suggestion on
what may be wrong with calling the useform?

Sub TerminalValue()
'
' TerminalValue Macro
'

'
'Application.ScreenUpdating = False
'Application.Visible = False

Load UserForm1

UserForm1.Show
Application.Calculation = xlManual

RANDOM

Calculate

Application.Calculation = xlAutomatic

Sheets("FINANCIAL INPUTS").Select
Range("C10").Select
Range("C10").GoalSeek Goal:=0, ChangingCell:=Range("B9")
Range("B16").Select

Horizon

cashflow


Sheets("Input4").Select

Range("A1").Select

'Application.ScreenUpdating = True
UserForm1.Hide
'Application.Visible = True


End Sub