Trying to edit user permissions under "Allow user to edit ranges" using VBA

Ok, so I have this bit o' code by recording a macro

    ActiveSheet.Protection.AllowEditRanges.Add Title:="Rage1", Range:=Range( _
        "A2")

The only problem is that, while recording, I also set permissions specific to a user by:
1:Clicked on "Permission"
2: clicked "Add".
3:The object type and location were already entered so I entered the user id and hit ok.

This part does not reflect in the code. Does anyone know of a way to add permissions with VBA?

Hello WhizBang,

Here is macro taken from the VBA Help Files. This will list the permissions assigned to a document (Excel Workbook).

Sub CheckPermissions()
    Dim irmPermission As Office.Permission
    Dim irmUserPerm As Office.UserPermission
    Dim strIRMInfo As String
    Set irmPermission = ActiveWorkbook.Permission
    If irmPermission.Enabled Then
        For Each irmUserPerm In irmPermission
            strIRMInfo = strIRMInfo & irmUserPerm.UserId & vbCrLf & _
                " - Permissions: " & irmUserPerm.Permission & vbCrLf & _
                " - Expiration Date: " & irmUserPerm.ExpirationDate & vbCrLf
        Next
        MsgBox strIRMInfo, _
            vbInformation + vbOKOnly, "IRM Information"
    Else
        MsgBox "This document is not restricted.", _
            vbInformation + vbOKOnly, "IRM Information"
    End If
    Set irmUserPerm = Nothing
    Set irmPermission = Nothing

End Sub

Try:

ActiveSheet.Protection.AllowEditRanges(1).Users("User").Delete