Select cell from a named range

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