Changing this code so that it names the new sheet on creation rather than after

Hello all, currently have this within our macro:

    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Sheet4").Select
    Sheets("Sheet4").Name = "Seller Cental Category"

Is there any way to make it so that when the sheet is created it is instantly called "Seller Central Category" ? Instead of it creating and then being named?

Regards,
Usman.