Select cell from a named range

Hi
I'm trying to put together a user form to enable users to change their password, I have the code that will select the user name from a specified cell but am looking for the user name to be selected from a named range (UserNames).Below is the code I have any help greatly appreciated.
Regards
Spagbog
[CODE]Private Sub OKButt_Click()
If RepeatPasswordTextBox <> PasswordTextBox Then
MsgBox "Passwords do not match please try again.", vbCritical + vbInformation, "Spagbog"
PasswordTextBox = ("")
RepeatPasswordTextBox = ("")
PasswordTextBox.SetFocus
End If
If RepeatPasswordTextBox = PasswordTextBox And UserNameTextBox.Value = Range("A2") Then
Range("A2").Select
ActiveCell.Offset(0, 1) = RepeatPasswordTextBox.Value
Unload Me
End If
End Sub

Try:

Private Sub OKButt_Click()

Dim rngUser As Range

If RepeatPasswordTextBox <> PasswordTextBox Then
MsgBox "Passwords do not match please try again.", vbCritical + vbInformation, "Spagbog"
PasswordTextBox = ("")
RepeatPasswordTextBox = ("")
PasswordTextBox.SetFocus
End If

Set rngUser = Range("UserNames").Find(UserNameTextBox.Value, Lookin:=xlValues, LookAt:=xlWhole, Matchcase:=FALSE)


If RepeatPasswordTextBox = PasswordTextBox And Not rngUser Is Nothing Then
rngUser.Offset(0, 1) = RepeatPasswordTextBox.Value
Unload Me
End If
End Sub

Andrew-R
Perfect...and such a quick reply..
Many Thanks