TextBox not responding...

[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

 

[Frank Stone]

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

 

[Tom Ogilvy]

Try

Public Sub SubB

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

 

[Tom Ogilvy]

If Auto_open is in a general module it should work as well.

 

[Nick]

This work great!

Thanks!!!

Try

Public Sub SubB

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