Сохранить файл Excel, когда гиперссылка была нажата vba

Question

Привет, у меня есть код, который после нажатия на гиперссылку выскочит электронное письмо, как только я этого захочу, когда он щелкнет, файл также будет сохранен.

вот мой код

Dim h1 As Hyperlinks

Range("G5").Select
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:="mailto:", ScreenTip:="send", TextToDisplay:="send"
Selection.AutoFill Destination:=Range("G5:G50"), Type:=xlFillDefault
For Each hl In ActiveSheet.Hyperlinks
    ActiveWorkbook.Save
Next hl

хорошо, что нет ошибки, но часть сохранения не работает. Спасибо!!