Private Sub CommandButton2_Click()

If Me.Client.Text = "" Then
MsgBox "No Record selected", , "Errors" 'if client textbox is blank no listbox record selected. display "No Record Selected"
Exit Sub
End If
With Worksheets("Sheet1").ListRows.ListIndex + 1 'go to record corresponding to record selected in the listbox
.Range(2).Value = Client.Value 'populate database and corresponding listbox recored based on change to textbox
.Range(3).Value = Officer.Value
.Range(4).Value = Documentor.Value
End With
MsgBox ("Details Changed"), vbOKOnly + vbInformation, "SAVED" 'msgbox confirming change made

End Sub