Excel VBA Email confirmation on save with hyperlink to workbook

I'm a newbie and I'm stuck. I was trying to piece together code from the internet but it's not working. I have an Excel sheet that is shared on a network drive. When it is updated, I need an email sent out that includes a hyperlink back to the sheet that was changed. I tried putting the link in the Excel sheet itself but it appears as text in the email body.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)

'open outlook type stuff
Set OutlookApp = CreateObject("Outlook.Application")
Set OlObjects = OutlookApp.GetNamespace("MAPI")
Set newmsg = OutlookApp.CreateItem(olMailItem)
'add recipients
'newmsg.Recipients.Add ("Joe")
newmsg.Recipients.Add ("[email protected]")
'add subject
newmsg.Subject = " Leakage"
'add body
newmsg.HTMLBody = Range("A1").Value
newmsg.Display 'display
newmsg.Send 'send message
'give conformation of sent message
MsgBox " Confirmation email has been sent", , "Confirmation"






'save the document
'Me.Worksheets.Save

End Sub

Any help is greatly appreciated!

Tony C