TextBox not responding...

N

Nick

Hi,

I have the follow simple code, a form "frm1" is created and attached a
textbox

-------------------------------
Public Sub Auto_Open()

frm1.show

End Sub


Public Sub SubB

frm1.TextBox1.text = "test"

Call SubC

End SubB

'in the activate function of frm1

Private Sub UserForm_Activate()

Call SubB

End Sub
------------------------------------

Why the form frm1 is show, but the text box is not loaded, it is like
something very busy (yes, SubC is very busy), but everything else is okay.

Thanks

Nick
 
F

Frank Stone

Hi,
I just tested your code. it works if you change sub
Auto_open() to sub workbook_open()
:)
 
T

Tom Ogilvy

Try

Public Sub SubB

frm1.TextBox1.text = "test"
doevents
frm1.repaint
doevents
Call SubC
 
Top