Userform, select entire field

[Joergen Bondesen]

Hi NG.

I have a UserForm

Private Sub UserForm_Activate()

'// Add value to field
AddRows = -1

'// Select Field
Me.AddRows.SetFocus
'// The curser is indicating after 1
'// I want -1 selected, so the user can enter a new value, if necessary,
without backspacing.
'// How can I do this?
End Sub

 

[RB Smissaert]

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


RBS

 

[Joergen Bondesen]

Hi RBS

Perfect, thanks.