Flytte fane med diagram til anden excel fil med makro'er

Hvad hvis du lukker excel helt ned og starter forfra - navngiver den så forfra igen?

/Christian
ck@officekonsulenterne.dk

Når jeg åbner den første gang, har fanen det navn jeg har givet den, hvilket den bliver ved med hvis jeg åbner og lukker præcis som den skal. Men hvis jeg kører min makro 1 gang, så begynder den at skifte navn hver gang jeg åbner.
Dette sker dog ikke hvis jeg, som du siger lukker alle dokumenter fra excel ned også åbner filen igen. Ved du hvordan man kan løse dette?

Sub alder()

'
Dim By As String
Dim Landsdel As String
Dim Landet As String

    By = Range("D2").Value
    Landsdel = Range("E2").Value
    Landet = Range("F2").Value
    komma = ","
    Dim Sorter As String
    Sorter = By & komma & Landsdel & komma & Landet
   
'

           
    Application.AddCustomList ListArray:=Array(By, Landsdel, Landet)
   
    ActiveWorkbook.Worksheets("Rådata").AutoFilter.Sort.SortFields.Clear
   
    ActiveWorkbook.Worksheets("Rådata").AutoFilter.Sort.SortFields.Add Key:=Range( _
        "B5:B1512"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=(Sorter), DataOption:=xlSortNormal
       
    With ActiveWorkbook.Worksheets("Rådata").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
   
       
    Sheets("aldersfordeling").Select
    Sheets("aldersfordeling").Copy After:=Workbooks("Mappe1.xlsm").Sheets(1)
   
    Windows("aldersfordeling.xlsm").Activate
   
   
    ActiveWorkbook.Save
    ActiveWorkbook.Close


' alder Makro
'

'
End Sub