Userform - Delete Button VBA

Hi. I was working with mehmetcik on this same userform and have another question, so I opened a new thread.

The original thread is here:
https://www.excelforum.com/excel-pro...ml#post5294014

The sample form attached is the one we were working on. I want to use the Global Variable "Entry" that was created to modify the code for the Delete button on the ContactSearch userform.

Currently column A is populated with the address of the first column of the table and that is used to know which table row to delete when the button is pushed.

Private Sub CmdDeleteContact_Click()

'Deletes the row of selected contact.
Dim X
    On Error GoTo booboo
    X = Split(ListContactSearch.Column(5), "'!")
    Application.GoTo Sheets(X(0)).Range(X(1)), True
    Selection.ListObject.ListRows(3).Delete
    Unload Me
    Range("B1").Select
    
    Exit Sub

booboo:           MsgBox "Oops! Please click on a contact in the list, then click Open Contact."

Is want to get rid of the information in column A completely and remove the last column in the named range "ContactSearchResults" and use the "Entry" variable to determine what row to delete when the button is pressed.

Any help is appreciated.

Thank you again, mehmetcik.

The error message listed in the code displays when I press the "Delete" button.

Also, is it possible to delete the Table Row instead of putting in "" for the value?

I don't want to leave a blank row in the table.

That works perfectly! I had another spreadsheet open that was apparently causing confusion. Once I closed that spreadsheet I didn't get the error. In other words...user error!

Thank you so much for your help!