With:

Private Sub UserForm_Initialize()
UserForm1.TextBox1.Text = Sheets("Sheet2").Range("A1").Value
End Sub

How do I make Userform1 Modeless?

Hi Jim,

Try:

'=============
Public Sub Tester()
UserForm1.Show vbModeless
End Sub
'<<=============

---
Regards,
Norman


"Jim May" wrote in message
news:vWBLf.185324$oG.137713@dukeread02...
With:

Private Sub UserForm_Initialize()
UserForm1.TextBox1.Text = Sheets("Sheet2").Range("A1").Value
End Sub

How do I make Userform1 Modeless?

Thanks Norman,

I guess it can be done this way,

Private Sub Workbook_Open()
UserForm1.Show vbModeless
End Sub

as well... (seems to work OK, without a problem..)

Jim

"Norman Jones" wrote in message
...
Hi Jim,

Try:

'=============
Public Sub Tester()
UserForm1.Show vbModeless
End Sub
'<<=============

---
Regards,
Norman


"Jim May" wrote in message
news:vWBLf.185324$oG.137713@dukeread02...
With:

Private Sub UserForm_Initialize()
UserForm1.TextBox1.Text = Sheets("Sheet2").Range("A1").Value
End Sub

How do I make Userform1 Modeless?