Daten aus einem Tabellenblatt mit Variablem Namen kopieren

Sub ExcelExp_Short_Dataconclusion()
'Löschen von ausgeblendeten Reitern'
Dim wksWorksheet As Worksheet
For Each wksWorksheet In ActiveWorkbook.Worksheets
If wksWorksheet.Visible  xlSheetVisible Then wksWorksheet.Delete
Next wksWorksheet
' Einfügen eines Neuen Reiters'
Dim wsNew As Worksheet
Set wsNew = Worksheets.Add
With wsNew
.Name = "Data"
.Move after:=Sheets(Sheets.Count)
End With
Set wsNew = Nothing
' Einfügen der Reiternamen in den neuen Reiter'
Dim ws As Worksheet
Dim X As Integer
X = 1
For Each ws In Worksheets
Cells(X, 1) = ws.Name
X = X + 1
Next ws
End Sub