How can I send an update of "Sent" on VBA through Excel

[nrah]

Hi, I wanted to know how to code a "Sent' on an excel column once an email has been successfully sent through VBA. Attached below is my code and only displays a msg sent dialog box whether it has been sent or not, I don't know how to go about it

ToVariable = ToVariable & ";" & sh.Range("A" & i).Value
CCVariable = CCVariable & ";" & sh.Range("B" & i).Value
'Name = Name & "," & sh.Range("C" & i).Value
msg.To = ToVariable
msg.cc = CCVariable
'msg.To = sh.Range("A" & i).Value
'msg.cc = sh.Range("B" & i).Value
msg.Subject = sh.Range("E" & 2).Value
msg.body = Name & sh.Range("G" & 2).Value

'If sh.Range("E" & i).Value <> "" Then
'msg.attachments.Add sh.Range("E" & i).Value
'End If


msg.display

Next i


MsgBox "Mail Sent"

 

[EFANYoutube]

? this

msg.display
sh.Range("H" & i).Value = "Sent"
Next i