Navngivning af faneblade

Hej Eksperter

Jeg er i gang med at udvikle en makro i Excel, som gemmer min data i en ny fil, det der bare driller mig er:
For hver gang jeg køre min løkke ændre fanebladsnavnet sig.
altså "Ark1".."Ark2" osv.

Det jeg vil ha den til er at navngive det nyoprettede faneblad "Ark1" og kun "Ark1"

Her er hvad der sker

If Sheets("Kundekalkulation").Range("a1").Value = "" Then
    Ark1.Activate
    If Sheets("Beregninger").Range("c22").Value = "Berlin" Then
      filnavn = "C:\Huskalkulation\Standardhus\" & Sheets("Beregninger").Range("c5").Value & "\" & Sheets("Beregninger").Range("c7").Value & "\" & "PrisBL" & Sheets("Prisliste").Range("g1").Value
    End If
    If Sheets("Beregninger").Range("c22").Value = "Nordtyskland" Then
      filnavn = "C:\Huskalkulation\Standardhus\" & Sheets("Beregninger").Range("c5").Value & "\" & Sheets("Beregninger").Range("c7").Value & "\" & "PrisNT" & Sheets("Prisliste").Range("g1").Value
    End If
    Set NewSheet = Worksheets.Add
    Dim AktivarkPris As String
    If gem = "1" Then
      Sheets("Prisliste").Activate
      AktivarkPris = "Prisliste"
    End If
    If gem = "2" Then
      Sheets("Kundekalkulation").Activate
      AktivarkPris = "Kundekalkulation"
    End If
               
    NewSheet.Range("da1:dj1000").Value = Sheets(AktivarkPris).Range("a1:j1000").Value
    NewSheet.Range("dk1:dk1000").Value = Sheets(AktivarkPris).Range("k1:k1000").Value
    NewSheet.Range("dl1:dn1000").Value = Sheets(AktivarkPris).Range("l1:n1000").Value
       
    NewSheet.Range("a1000:b1026").Value = Sheets("Beregninger").Range("c4:d30").Value
    NewSheet.Range("el1:gw1000").Value = Sheets(AktivarkPris).Range("at1:de1000").Value
       
    NewSheet.Range("a1:ca1000").Value = Workbooks("Husspecifikation-de.xls").Sheets("Beregninger").Range("a1.ca1000").Value
   
    NewSheet.Select
    NewSheet.Move
    ActiveWorkbook.SaveAs filnavn, FileFormat:= _
    xlWorkbookNormal, CreateBackup:=False
                 
    Application.DisplayAlerts = False
    ActiveWindow.Close
    Application.DisplayAlerts = True
  End If