我已经写了一些VBA代码，我需要从工作表中选择唯一的值(用户)并比较密码，然后更改密码

Sub ChangePassword()
    Dim userRange As Range
    Dim userCell As Range
    Dim userInput As String
    Dim passwordInput As String
    Dim newPassword As String
    
    ' 获取用户输入的用户名和密码
    userInput = InputBox("请输入用户名：")
    passwordInput = InputBox("请输入密码：")
    
    ' 在工作表中查找用户名
    Set userRange = Worksheets("Sheet1").Range("A:A")
    Set userCell = userRange.Find(What:=userInput, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到了对应的用户名
    If Not userCell Is Nothing Then
        ' 比较密码
        If userCell.Offset(0, 1).Value = passwordInput Then
            ' 输入新密码
            newPassword = InputBox("请输入新密码：")
            
            ' 更新密码
            userCell.Offset(0, 1).Value = newPassword
            
            MsgBox "密码已成功更改！"
        Else
            MsgBox "密码错误！"
        End If
    Else
        MsgBox "用户名不存在！"
    End If
End Sub