Hallo,

ich möchte gerne mehrere  Arbeitsblätter innerhalb einer Arbeitsmappe kopieren. Habe  zur Zeit diesen Befehl. Aber der Kopiert nur ein Arbeitsblatt. Ich möchte aber  gerne 5 Blätter kopieren und diese in schon vorhanden Blätter einfügen.  

Vielleicht könnte mir jemand helfen. DANKE.

Sub Kopieren_von_Arbeitsblättern()

Range("A1:F500").Select
    Selection.Copy
    Sheets("Test1").Select
    Range("A1").Select
    ActiveSheet.Paste
   
End Sub