SHEETS KOPIEREN

ICH HABE FOLGENDE FRAGE

ICH HABE FOLGENDEN CODE

Sub Absenden()
Application.Screen.Updating = False
ThisWorkbook.Worksheets(1).copy
ActiveWorkbook.SendMail"Email@.de"
ActiveWorkbook.Close savechanges:=False
Application.OnTime NextTime,"Versenden"
End Sub

Bei diesem code schickt er per Email jeweils das Blatt 1
Ich möcht dass Excel z.B. das Blatt 1-20 schickt von der Mappe
Was muss ich an dem Code ändern??

Danke im Voraus
Gruss Klaus