Почему этот код возвращает ошибку автоматизации при смене листа?

Question

Если заменить Sheets (1) на Sheets (2 или выше), макрос выдает ошибку автоматизации при запуске .Chart.Export...

ActiveWorkbook.Sheets(1).Activate

Range("A1:A3300").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture

ActiveSheet.Shapes.AddChart.Select
ActiveChart.SeriesCollection(1).Delete
ActiveChart.ChartArea.Format.Line.Visible = msoFalse
ActiveSheet.Shapes(1).Height = Range("A1:A3300").Height
ActiveSheet.Shapes(1).Width = Range("A1:A3300").Width
ActiveSheet.Shapes(1).Chart.Paste

ActiveSheet.Shapes(1).Chart.Export fileName:="C:\sample\" & "BIG." & ActiveWorkbook.Name & ".jpg"

ActiveSheet.ChartObjects(1).Delete

У меня также есть эта немного более сложная версия, которая работает нормально в Sheet(2) ...

ActiveWorkbook.Sheets(2).Activate

Range("A1:A" & Abs(ActiveWorkbook.Sheets(3).Range("A1").Value)).Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture

ActiveSheet.Shapes.AddChart.Select
ActiveChart.SeriesCollection(1).Delete
ActiveChart.ChartArea.Format.Line.Visible = msoFalse
ActiveSheet.Shapes(1).Height = Range("A1:A" & Abs(ActiveWorkbook.Sheets(3).Range("A1").Value)).Height
ActiveSheet.Shapes(1).Width = Range("A1:A" & Abs(ActiveWorkbook.Sheets(3).Range("A1").Value)).Width
ActiveSheet.Shapes(1).Chart.Paste

ActiveSheet.Shapes(1).Chart.Export fileName:="C:\sample\" & ActiveWorkbook.Name & ".commons.jpg"

ActiveSheet.ChartObjects(1).Delete

Может ли кто-нибудь указать на проблему?

Заранее спасибо;)