SetFocus to first textbox on userform upon Userform1.Show

I have Userform1 containing several textboxes. When I first open the Excel file and open the Userform for the first time, the cursor correctly appears in the first textbox (Textbox1). However, if I exit the Userform and then go back in, the cursor appears in another Textbox instead of Textbox1. In fact, each time I exit the Userform and go back in, the cursor is in a different Textbox. (The TabIndex of Textbox1 is set to 0.)

I've seen answers to several posts here giving a solution of Userform1.Textbox1.SetFocus. I've put that line in the Private Sub UserForm_Initialize() code, but it has not affect.

What code can I use so that whenever I open (show) Userform1, the cursor is always in Textbox1, and where do I place such code.

Many thanks,
Paul

Paul,

It might be because the userform is being hidden, and so when it is next
shown, the Initialize event is to used, that is for when it is loaded into
memory.

Throw your code into the Userform_Activate() event code, and see if that
fixes it.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Paul Simon" <anon...@discussions.microsoft.com> wrote in message
news:FF38ABAD-4842-48CD...@microsoft.com...

Thanks very much Bob. Your first paragraph was the clue to my problem. I changed from Hide to Unload Me, and now it works perfectly. Thanks again, Bob - I appreciate it.

Paul

----- Bob Phillips wrote: -----

Paul,

Could I advise you to re-consider. Sometimes, often, it is better to hide a
sheet rather than unload it, thereby removing that load overhead if you
re-load in the same session. You can still achieve your objective using the
Activate event.

Not saying you should, just make sure you are happy which is the best way
for you.

--

HTH

news:48F22472-16D4-4B1B...@microsoft.com...

Hi Bob,

You are absolutely right! If I load and unload the form several times, I eventually run out of memory. In fact, I even reached a point where Excel told me it could not save the file. (And exiting Excel does not regain the memory. You actually have to reboot.)

Thanks very much for great advice, Bob.

Paul

Hi Bob,

I have a follow-up question. First of all, your suggestion of my putting my Userform1.Textbox1.SetFocus line in the Userform_Activate event and changing the code in my Exit button back to Userform1.Hide (instead of Unload Me) all works perfectly.

What I'm wondering is this: If the user clicks the Close button (the built-in "x" button at the top right corner of the Userform) instead of my Exit button, is the Userform being hidden or unloaded? If unloaded, is there a way to remove the "x" Close button from the Userform?

Many thanks,
Paul

----- Paul Simon wrote: -----

Paul,

As I think you suspected, it is unloaded at this point.

Good news though, there is a QueryClose event that is invoked whenever the
form is unloaded. There are 4 close circumstances, so you can trap them and
react as you see fit. Here is some code

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Select Case CloseMode
Case vbFormControlMenu:
Cancel = True 'The user has chosen the Close command from the
Control menu on the UserForm.
Case vbFormCode:
'The Unload statement is invoked from code.
Case vbAppWindows:
'The current Windows operating environment
session is ending.
Case vbAppTaskManager:
'The Windows Task Manager is closing the
application
End Select

End Sub

In this I have shown all 4 instabces, but the only one that is trated is the
Control Menu close, the X that is, where I cancel the close. So it has no
effect to click the X.

You could action some of the others, but be careful, you might never be able
to close the dang thing.

--

HTH

news:F5856BBC-C2DD-42A1...@microsoft.com...

Bob,

Terrific! Thanks again so very much for all the time and help you've given me on this - it's very much appreciated. And I'll certainly take into account your caution about being careful to avoid not being able to close the form. (I'll do my experimenting on a "Test" file first.)

Many, many thanks,