Insert an Excel worksheet as the last sheet

Parameters

Macro Title:
Worksheet Number:
Comment:

'

Sub Insert_Worksheet_as_Last_Sheet()
'insert a new worksheet as the last sheet

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

End Sub