As a newbie I am not familiar with everything and will have to give up since I have tried desperately to understand the code tag on the internet. I understand your frustration him my lack of skills

Everyone has been so helpful and patient helping a newbie through learning and giving instructions.

If this is not what you require thank you for the time you spent responding.

VBA newbie desperate to complete my project for my employer


Private Sub CommandButton2_Click()

If Me.Client.Text = "" Then
MsgBox "No Record selected", , "Errors"
Exit Sub
End If

With Sheet1.ListRows(.ListIndex + 1)
.Range(2).Value = Client.Value
.Range(3).Value = Officer.Value
.Range(4).Value = Documentor.Value

End With

MsgBox ("Details Changed"), vbOKOnly + vbInformation, "SAVED"
End Sub