Frustrating sheet add problem

Hi everyone, thanks for looking (and helping I hope!)

When I do this, I get two sheets at the end of my practice worksheet (containing 1 chart at the start and 4 worksheets after).
Sheets.Add after:=Sheets(Sheets.Count), Count:=2

When I do this, the two added charts come BEFORE the last sheet, and I can't get it to insert after.
Sheets.Add after:=Sheets(Sheets.Count), Count:=2, Type:=XlSheetType.xlChart

Why won't the charts add after the last sheet?

Thanks

Hi,

I don't believe it is possible to add a chart after the last sheet directly. You must add them and then move them to the end.

play around with this...

Option Explicit
Sub Chart()
Dim i, count As Integer
Sheets.Add after:=Sheets(Sheets.count), count:=2
Sheets.Add after:=Sheets(Sheets.count), count:=2, Type:=XlSheetType.xlChart
For i = 1 To 2
    Sheets("Chart" & i).Move after:=Worksheets(Worksheets.count)
Next i
End Sub