Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern

Sub Schaltfläche()

Dim AWS As String

Dim smailtext As String

Dim wksMail As Worksheet

Set wksMail = Sheets("FollowMe") 'zu versendendes Blatt

Dim Austritt As String

Austritt = Tabelle1.Range("L2").Value 'Datum, bis wohin zu löschende Daten erfasst werden sollen

AWS = Environ("USERPROFILE") & "\" & wksMail.Name & ".xlsx"

'temporäre Mappe erstellen

wksMail.Copy

            With ActiveWorkbook

'                    .ActiveSheet.Rows ("8:20")

                    .SaveAs AWS

                    .Close

            End With

End Sub