Good Morning,

Hope this question finds you well.
I would really appreciate it if someone can point out to me what I am doing wrong.
I have a userform that search a data sheets according to comboboxes and then fill in info into textboxes. The user can then change the info in the textbox and once the add button is hit; it will replace the old info with the new info in the data sheet. All this is working fine, but now I would like to include a date stamp on it when the info of that specific choice was last updated. So basically I would like to recall the last date into TextBox4 (as per my selection in the comboboxes), but this time around I would like the date to be automatically replace by today’s date once the user hits the add button.
I have included the pieces of code that is working and the date one that I can’t get to work.
Any help would highly be appreciated. Thanks in advance!!

Private Sub CommandButton1_Click()

Dim Msg As String, Ans As Variant

Msg = "Are you sure you want to continue?"

Ans = MsgBox(Msg, vbYesNo)

Select Case Ans

Case vbYes

Range(BothLB) = TextBox1
Range(Critical) = TextBox2
Range(Comments) = TextBox3
Range(Last_Update) = TextBox4

Call UserForm_Initialize
Call ComboBox1_Change
'Call ComboBox2_Change
Case vbNo
GoTo Quit:
End Select

Quit:

End Sub


Private Sub ComboBox2_Change()
Dim Rws As Long, Rng As Range, c As Range, s As String

Rws = Cells(Rows.Count, "B").End(xlUp).Row

Set Rng = Range(Cells(2, 12), Cells(Rws, 12))
s = ComboBox2.Value
For Each c In Rng.Cells
If c = ComboBox1 And c.Offset(0, -6) = s Then
TextBox1 = c.Offset(0, -10)
BothLB = c.Offset(0, -10).Address
TextBox2 = c.Offset(0, 75)
Critical = c.Offset(0, 75).Address
TextBox3 = c.Offset(0, 57)
Comments = c.Offset(0, 57).Address
TextBox4 = c.Offset(0, 95)
Last_Update") = c.Offset(0, 95).Address = Format(Date, "dd/mm/yyyy")

End If
Next c
End Sub