I have a original template file where im typing in data for send offers on products to customers. I have made a button on this template that runs this code under here.
The code makes av saveascopy file on a path on onedrive, but also opens outlook and attachd this excel file in converted pdf. But the button is shown in the pdf that has been converted and on the excel copy file that has been placed on onedrive. I want to keep the button on the template because im gonna send more offers to other customers. See?
But the button wont go away on the pdf or the copied sheet on onedrive.
-----------------------------

Private Sub CommandButton1_Click()
' Create PDF of active sheet and send as attachment.
'
Dim strPath As String, strFName As String
Dim OutApp As Object, OutMail As Object


'Create PDF of active sheet only
strPath = Environ$("temp") & "\" 'Or any other path, but include trailing "\"

strFName = ActiveWorkbook.Name
strFName = Left(strFName, InStrRev(strFName, ".") - 1) & "_" & ActiveSheet.Range("D7") & ".pdf"
ActiveWorkbook.SaveCopyAs Filename:="C:\Users\Marius Filtvedt\OneDrive - Omega Industrier AS\1. OMEGA\Omega Østfold\Tilbud kunder\Tilbud Interiør" & "_" & ActiveSheet.Range("D7") & ".xls"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPath & strFName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

'Set up outlook
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

'Create message
On Error Resume Next
ActiveSheet.Shapes("CommandButton1").Delete

With OutMail
.to = Range("L13") 'Insert required address here ########
.CC = ""
.BCC = ""
.Subject = "Interiør solskjerming Tilbud"
.Body = ""
.Attachments.Add strPath & strFName
.Display 'Use only during debugging ##############################
'.Send 'Uncomment to send e-mail ##############################
End With

'Delete any temp files created
Kill strPath & strFName
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub