Sheets.Add
Sheets.Add After:=Sheets("Input")
Sheets.Add After:=Sheets(1)
Sheets.Add Before:=Sheets(2)
Sheets.Add.Name = "NewSheet"	' Add sheet with name
Sheets.Add After:=Sheets(Sheets.Count)	' To end of Workbook
Sheets.Add(Before:=Sheets(1)).Name = "FirstSheet"	' To beginning of Workbook

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count Application.Sheets(i).Name = newName & i
Next
End Sub