Insert an Excel worksheet as the last sheet

Parameters

Macro Title:
Worksheet Number:
Comment:

'

Sub Insert_Worksheet_as_Last_Worksheet()
'insert a new worksheet as the last worksheet

Worksheets.Add After:=Worksheets(Worksheets.Count)

End Sub