Non so se ho capito bene il tuo problema ma con le due istruzioni che seguono aggiungi un foglio che si chiama Pluto nella cartella di lavoro attiva dopo il foglio Pippo

ActiveWorkbook.Sheets.Add after:=Worksheets("pippo")
ActiveWorkbook.Sheets(2).Name = "Pluto"

Spero di averti aiutato o almeno averti dato un'idea

ciao