Insert an Excel worksheet before the last sheet

Parameters

Macro Title:
Worksheet Reference:
Comment:

'

Sub Insert_Worksheet_Before_the_Last_Sheet()
'insert a new worksheet before the last sheet

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

End Sub