Based on what you described:

Sub pswdchng()
Dim newPswd As String
newPswd = InputBox("Enter New Password.", "CHANGE PASSWORD")
confrmPw = InputBox("Confirm Change by Re-entering New _
Password.", "CONFIRM CHANGE")
If newPswd = confrmPw Then
Worksheets(2).Range("A1") = newPswd
Else
MsgBox "New Password Mismatch, Change Aborted."
End If
End Sub

"Dave Lagergren" wrote:

I have a spread sheet that has one page with all our users, user names and
passwords. Another sheet has a random password generator. I would like to
be able to change the password for any user by using a macro or a button. I
can do it for all at once but I don't need/want to do that. My password is
store in sheet2 cell A1.

--
Dave Lagergren
Manager - Data Applications
Wireless Management, Inc
Specializing in cellular wireless applications