When tabing through the text boxes on my form all data within a text box is
selcted because the EnterFieldBehavior is set to select all. On form
initilization the first text box in the tab order has the cursor at the end
of the field. I want to have all text in this box selected at form
initalization.

You advise is appreciated to fill in the line of code below, txtBoxName,


Private Sub UserForm_Activate()
txtBoxName (select all the text in the box)
End Sub

Maybe

Private Sub UserForm_Activate()
With txtBoxName

.SelLength = Len(.Text)
.SelStart = 0
.SetFocus
End With
End Sub

--
__________________________________
HTH

Bob

"Hal" wrote in message
...
When tabing through the text boxes on my form all data within a text box
is
selcted because the EnterFieldBehavior is set to select all. On form
initilization the first text box in the tab order has the cursor at the
end
of the field. I want to have all text in this box selected at form
initalization.

You advise is appreciated to fill in the line of code below, txtBoxName,


Private Sub UserForm_Activate()
txtBoxName (select all the text in the box)
End Sub

Hi,

Try this

Private Sub UserForm_Initialize()
With Me.TextBox1
.Value = "test"
.SelStart = 0
.SelLength = Len(.Value)
End With
End Sub

Mike

"Hal" wrote:

When tabing through the text boxes on my form all data within a text box is
selcted because the EnterFieldBehavior is set to select all. On form
initilization the first text box in the tab order has the cursor at the end
of the field. I want to have all text in this box selected at form
initalization.

You advise is appreciated to fill in the line of code below, txtBoxName,


Private Sub UserForm_Activate()
txtBoxName (select all the text in the box)
End Sub

Thanks Mike, Worked as needed.

"Mike H" wrote:

Hi,

Try this

Private Sub UserForm_Initialize()
With Me.TextBox1
.Value = "test"
.SelStart = 0
.SelLength = Len(.Value)
End With
End Sub

Mike

"Hal" wrote:

When tabing through the text boxes on my form all data within a text box is
selcted because the EnterFieldBehavior is set to select all. On form
initilization the first text box in the tab order has the cursor at the end
of the field. I want to have all text in this box selected at form
initalization.

You advise is appreciated to fill in the line of code below, txtBoxName,


Private Sub UserForm_Activate()
txtBoxName (select all the text in the box)
End Sub

Glad I could help and thanks for the feedback

"Hal" wrote:

Thanks Mike, Worked as needed.

"Mike H" wrote:

Hi,

Try this

Private Sub UserForm_Initialize()
With Me.TextBox1
.Value = "test"
.SelStart = 0
.SelLength = Len(.Value)
End With
End Sub

Mike

"Hal" wrote:

When tabing through the text boxes on my form all data within a text box is
selcted because the EnterFieldBehavior is set to select all. On form
initilization the first text box in the tab order has the cursor at the end
of the field. I want to have all text in this box selected at form
initalization.

You advise is appreciated to fill in the line of code below, txtBoxName,


Private Sub UserForm_Activate()
txtBoxName (select all the text in the box)
End Sub