Foro Excel

Hola amigos
tengo escrita esta macro que funciona perfectamente, pero mi intención es que utilizar un Userform, pero no soy capaz de hacerlo.
Necesito que en el userform tenga dos opciones para enviar a dos destinatarios distintos, que estarian preseleccionados


Sub Mail_ActiveSheet()
Dim wb As Workbook
Dim strdate As String
Dim stEmail As String

strdate = Format(Now, "dd-mm-yy h-mm-ss")
strEmail = "xxx"

Application.ScreenUpdating = False


ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs ThisWorkbook.Name & " " & strdate & ".xls"
.SendMail strEmail, "SOLICITUD DE....."
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With


Application.ScreenUpdating = True
End Sub

Muy agracedido
Alfredo

Hola Alfred_BBB:

Te mando este ejemplo espero sea asimle a lo que tu quieres, si tienes alguna pregunta me puedes contactar por este medio.

Saludos.

Gracias mil.... esetupendo
tan solo una preguntilla para terminar de depurarlo...
cuando envio la hoja, ¿puedo poner en algun sitio el nombre que tiene la hoja activa que se esta enviando ???
gracias
ALfredo