I have the following code as part of a sheet:

Private Sub Worksheet_Activate()
' CHANGES RFI# TO MATCH CURRENT SHEET NAME
Dim JUDD As String
Dim judd5
judd5 = ActiveCell.Address
JUDD = ActiveSheet.Name
Range("K8").Select
ActiveCell.FormulaR1C1 = Right(JUDD, 3)
Range(judd5).Select
End Sub


And I have the following to email the sheet:


Sub Mail_ActiveSheet()
Dim wb As Workbook

Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
' Names the worksheet the same as activesheet
.SaveAs ActiveSheet.Name & ".xls"
' Next line has "" which is a blank email. Allows you to send to whom you
want.
.SendMail "", _
ActiveSheet.Name
' "This is the Subject line" 'Type the subject in the previous quotes
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub



When I use the email macro it always excutes the first code and inserts the
value in the current cell. When this happens it is deleting information that
is needed.

Please help to make this quit.

Thanks in advance.