Sub DinMakro()
'Din kode

'Sæt den rigtige reference til din celle ind her (fane-navn og celle-adresse):
GemKopi Worksheets("Ark1").Range("A1").Value
End Sub

Sub GemKopi(SaveName As String)
Dim wbPath As String, ws As Worksheet, arr() As String
ReDim arr(0 To (Worksheets.Count) - 1)
wbPath = ThisWorkbook.Path
If Not Right(wbPath, 1) = "\" Then wbPath = wbPath & "\"
For Each ws In Worksheets
    arr(ws.Index - 1) = ws.Name
Next ws
Worksheets(arr).Copy
Application.DisplayAlerts = False
With ActiveWorkbook
    .SaveAs wbPath & SaveName & ".xlsx", xlOpenXMLWorkbook
    .Close False
End With
Application.DisplayAlerts = True
ThisWorkbook.Activate
End Sub

Sub DinMakro()
'Din kode

'Sæt den rigtige reference til din celle ind her (fane-navn og celle-adresse):
GemKopi Worksheets("Sheet1").Range("A1").Value
End Sub

Sub GemKopi(SaveName As String)
Dim wbPath As String, ws As Worksheet, ch As Chart, arr() As String
Dim counter As Long, wsCount As Long, chCount As Long
wbPath = ThisWorkbook.Path
If Not Right(wbPath, 1) = "\" Then wbPath = wbPath & "\"
counter = 0
wsCount = Worksheets.Count
ReDim arr(0 To wsCount - 1)
For Each ws In Worksheets
    arr(counter) = ws.Name
    counter = counter + 1
Next ws
Worksheets(arr).Copy
counter = 0
With ThisWorkbook
    chCount = .Charts.Count
    If Not chCount = 0 Then
        ReDim arr(0 To chCount - 1)
        For Each ch In .Charts
            arr(counter) = ch.Name
            counter = counter + 1
        Next ch
        .Charts.Copy ActiveWorkbook.Worksheets(1)
    End If
End With
Application.DisplayAlerts = False
With ActiveWorkbook
    .SaveAs wbPath & SaveName & ".xlsx", xlOpenXMLWorkbook
    .Close False
End With
Application.DisplayAlerts = True
ThisWorkbook.Activate
End Sub