Never mind,,, Got it Googling...
Added Line DoEvents

Problem Solved,,


"JMay" wrote:

The below (Partial) code is working fine EXCEPT my UserForm1 (which is coming
up on the screen) IS BLANK Inside the border. Obviously, I'd like for the
content to SHOW; What do you see as being wrong here?

Sub ImportDailys()
'
Application.ScreenUpdating = False
Worksheets("Data").Activate
Range("B2:F30000").ClearContents
Worksheets("Start Here").Activate
Application.ScreenUpdating = True

res = InputBox("Enter Report Day of Month")
UserForm1.Show vbModeless

Application.ScreenUpdating = False

'To process 1 of 26
..................
End sub