Attachment is added Twice while sending emial through Excel

I have added below code and when I click the button second time, attachment is added twice. Kindly let me know the problem in my VBA code:
<Code>





Private Sub Email_Click()
Dim Fname As String
Dim EmailAddress As String
Fname = Environ$("temp") & "\Testing_Status.gif"
EmailAddress = InputBox("Enter Complete Email Address to whom you want to send Testing Status.")
If EmailAddress = "" Then
Kill Fname
Exit Sub
End If

'Fname = Environ$("temp") & "\Testing_Status.gif"
ActiveWorkbook.Worksheets("Testing Status").ChartObjects("Chart 1").Chart.Export _
Filename:=Fname, FilterName:="GIF"


ActiveSheet.UsedRange.Select
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = "Test Status Matrix is as shown below and graphical bar chart is attached."
.Item.To = EmailAddress
.Item.Subject = "Testing Status"
.Item.Attachments.Add Fname
.Item.Send
End With
Kill Fname
End Sub
</Code>