Prompt to enter a sheet to send to recipients

[bsnapool]

Hi All

I have following code:

Sub Mail_ActiveSheet()
    Dim strdate As String
    ActiveSheet.Copy
    strdate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
    ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
                        & " " & strdate & ".xls"
    ActiveWorkbook.SendMail "andrew.poole@knowlsley.gov.uk", _
                            "Sickness & Absence return"
    ActiveWorkbook.ChangeFileAccess xlReadOnly
    Kill ActiveWorkbook.FullName
    ActiveWorkbook.Close False
End Sub

The code emails the active sheet to the recipients shown. Is there any way to insert a msg box to ask what sheet you want to send? Also a outlook message appears when sending the sheet saying outlook is sending an email on and may contain a virus do you want to send? Is there a way to disable this message?

Thanks in advance

Andrew

 

[bsnapool]

Any ideas?

 

[atmospheric]

This is usually a good placw to start:

http://www.rondebruin.nl/sendmail.htm

 

[bsnapool]

I already started here... Looking for some code which would prompt me for what tab I would like to copy instead of the activesheet.

Any ideas?