Insert an Excel worksheet before the last sheet

Macro Title:
Chart Sheet Name:
Comment:

'

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

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

End Sub