Gruppe
Extern
Problem
Das in Zelle C1 genannte Arbeitsblatt soll mit dem in Zelle B1 genannten Betreff an die in Zelle A1 genannte Emailadresse gesandt werden.
StandardModule: Modul1
Sub SendTab()
Dim wks As Worksheet
Application.ScreenUpdating = False
Set wks = ActiveSheet
Worksheets(Range("C1").Value).Copy
ActiveWorkbook.SendMail wks.Range("A1").Value, wks.Range("B1").Value
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub