Sheets.Add After:=Sheets(Sheets.Count)
Activesheet.Name = {your choice}