Click event for UserForm Multipage

S

Steve

Hi everyone. I have a User Form Multipage with 2 tabs on it. I need the focus to be set on the first tab upon initialization. On the second tab I have a text box. I am trying to create a click event that when the user clicks tab 2, the default field in the text box becomes highlighted so the user can simply type over without deleting the default value.
The code I have is as follows:

Private Sub MultiPage1_Click(1)
With UserForm1.TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub

But I get a Compile error, expected identifier. Any thoughts?

Thanks!
 
G

GS

Try...

Private Sub MultiPage1_Click(ByVal Index As Long)
If Index = 1 Then '//Page2 (Index is zero based)
With Me.TextBox1
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With
End If
End Sub

Private Sub UserForm_Initialize()
Me.MultiPage1.Value = 0 '//set to Page1
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top