En macro til at gemme en ny excel fil

Jeg har prøvet at eksperimentere lidt med det. Er dette noget du kan bruge?

Sub GemFil()
Dim Ark1, Ark2 As String
Dim TestArk, x As Integer

Ark1 = InputBox("Hvilke ark ønsker du at gemme?")
A:
x = 0
For TestArk = 1 To ActiveWorkbook.Worksheets.Count
If Ark1 = Worksheets(TestArk).Name Then
x = 1
End If
Next
If x = 0 Then
Ark1 = InputBox("Indtastede arknavn findes ikke. Prøv igen")
GoTo A:
End If

Ark2 = InputBox("Og Ark 2?")
B:
x = 0
For TestArk = 1 To ActiveWorkbook.Worksheets.Count
If Ark2 <> Worksheets(TestArk).Name Then
x = 1
End If
Next
If x = 0 Then
Ark2 = InputBox("Indtastede arknavn findes ikke. Prøv igen")
GoTo B:
End If

For TestArk = ActiveWorkbook.Worksheets.Count To 1 Step -1
If Worksheets(TestArk).Name <> Ark1 And Worksheets(TestArk).Name <> Ark2 Then
Application.DisplayAlerts = False
Worksheets(TestArk).Delete
End If
Next
ActiveWorkbook.SaveAs FileFormat:=51
End Sub

En lidt kortere version...

Hej med Jer

Tak for forsøget.

#2, den gør det faktisk næsten, men den skal ikke laves som Ark1 (2) Ark2 (2)
Kan det laves på en anden måde, også at der kun er de ark som bliver kopiret over i den nye fil?

Jeg tænkte at du selv kunne klare at ændre "Sheet1" til "Ark1" osv. så det er de ark du ønsker der kopieres.

"Kan det laves på en anden måde, også at der kun er de ark som bliver kopiret over i den nye fil?" - forstår jeg ikke

wkbNew.Worksheets(1).delete
Vil slette den eksisterende arkfane i wkbNew. Du kan sætte linjen ind lige før SaveAs linjen

Kunne sagtens bruge det, for har jo andre navne på mine oprigtige ark.

Tusind tak for hjælpen!