Excel VBA シートの追加

Worksheets.Add After:=Sheets(Worksheets.Count)
ActiveSheet.Name = "追加シート名"