Insert an Excel worksheet after the first sheet

Parameters

Macro Title:
Worksheet Name:
Comment:

'

Sub Insert_Worksheet_After_the_First_Worksheet()
'insert a new worksheet after the first worksheet

Worksheets.Add After:=Worksheets(1)

End Sub