Skapa flera sidor och byt namn på dom

Hej
Jag försöker skapa ett par sidor och även byta namn på dom.
Hittade något som fungerade en gång.

Sheets.Add After:=ActiveSheet
Sheets("Blad1").Select
Sheets("Blad1").name = "A-Bladet"
Sheets.Add After:=ActiveSheet
Sheets("Blad2").Select
Sheets("Blad2").name = "B-Bladet"

Problemet är att jag kommer behöva köra samma skript ett par gånger och bladen fortsätter numrera upp.
så nästa gång jag kör scriptet skapas blad 3 = error.
Tänkte att jag kunde skrivit
Sheets.Add After:=ActiveSheet.name = "A-Bladet" fast det gillar den inte heller

Löste det på ett annat vis. Fast nu är en annan fråga.
Då jag ska spara sidan som jag kopierat vill jag få med ett taggnamn i namnet..

Sheets("A-sida").Copy
ActiveWorkbook.SaveAs filename:="C:\Ny\A-sida.txt", _
FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close

fungerar fint fast vill ta med taggen sitename t.ex.

ActiveWorkbook.SaveAs filename:="C:\Ny\"sitename"A-sida.txt", _
fast går inte.

Nästa fråga är hur jag stänger sidan utan att behöva svarra på frågan som kommer ifall jag vill spara?

Är nybörjare så spelar in massa mackron som jag sen klipper ihop själv.

även sparningen är fixad. Efter mer sök.

Filnamn = "C:\Ny\" & name & "A-sida.txt"
ActiveWorkbook.SaveAs filename:= Filnamn, _
FileFormat:=xlText, CreateBackup:=False

Nu är det bara att få den att stänga det ena excell programmet utan att fråga om den ska spara.