Hola Amigo.!

tengo un codigo para enviar por mail un formulario y resulta que alguno tienen Lotus (predeterminado para mail) y dicho cogido no les funciona.Private Sub mail_Click()
a = Cells(1, 1)
Range(Cells(7, 4), Cells(7 + a, 10)).Select
Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
   Application.Dialogs(xlDialogSendMail).Show
   ActiveWindow.Close
   Cells(4, 2).Select
   
  
End Sub
 

Gracias!