Update Rows in Database based on Combobox selected item on Userform. Problem .

Hi jmarriott

You seem to have a missing Workbook/Worksheet...the Code does not like the indicated line

Private Sub UserForm_Initialize()
' set focus on contact work book on open

    Dim vntConame As Variant

    Application.Workbooks("Code Rev 1 -Sub Database 1.1").Worksheets("Metadata").Activate '<---- This Workbook/Worksheet appears to be missing
    Coname.RowSource = Range("A1:A6000").Address

    HideCloseButton Me
    Me.Coname.SetFocus

End Sub

Hi jmarriott

Change your Delete Code to this...the List Index was getting set to -1...

Private Sub DeleteContact_Click()
    Dim Response As VbMsgBoxResult
    Dim x As Long
    ' delete contact and row of data

    x = Coname.ListIndex + 1

    Application.ScreenUpdating = True
    Worksheets("Metadata").Range("A" & x).Value = ""
    Worksheets("Metadata").Range("J" & x).Value = ""
    Worksheets("Metadata").Range("C" & x).Value = ""

    Worksheets("Metadata").Range("D" & x).Value = ""
    Worksheets("Metadata").Range("K" & x).Value = ""
    Worksheets("Metadata").Range("N" & x).Value = ""
    Worksheets("Metadata").Range("E" & x).Value = ""
    Worksheets("Metadata").Range("H" & x).Value = ""
    Worksheets("Metadata").Range("I" & x).Value = ""
    Worksheets("Metadata").Range("G" & x).Value = ""

    ' confirmation pop up window
    If Worksheets("Metadata").Range("A" & x).Value = "" Then
        Response = MsgBox("No Company Name - Delete this Contact?", vbYesNo + vbQuestion)
    End If
    If Response = vbYes Then
        Worksheets("Metadata").Rows(x).Select
        Selection.Delete Shift:=xlUp
    Else
        Exit Sub
    End If

    're-sort workbook alphabetically

    Worksheets("Metadata").AutoFilter.Sort.SortFields.Clear
    Worksheets("Metadata").AutoFilter.Sort.SortFields.Add Key:= _
            Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
            xlSortNormal
    With Worksheets("Metadata").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Call UserForm_Initialize

End Sub