Hi there,

I have made a code (adapted from http://www.thespreadsheetguru.com/bl...lides-with-vba) that copies ranges from multiple worksheets to separate powerpoint slides.
When running the code some ranges are not pasted into the powerpoint (e.g. 28 ranges are pasted correctly but 2 are missing). Running it again there could be 26 ranges pasted correctly but 4 missing. Sometimes even all ranges are pasted correctly! It drives me crazy. When debugging it seems like the code is working at all times, but when running the code is unreliable. Can someone please help? Maybe I need an Do event, but I do not know how to incorporate. Below is the critical part of the code (line marked in bold) that tends to fail when running:

'List of PPT Slides to Paste to
MySlideArray = Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31)

'List of Excel Ranges to Copy from
MyRangeArray = Array(Worksheets("TILNYKAPACITET").Range("A1:I36"), Worksheets("Pladelaser - MSK4001").Range("A1:H36"), Worksheets("Rørlaser - MSK4002").Range("A1:H36"), _
Worksheets("Revolver - MSK3351").Range("A1:H36"), Worksheets("Kantpres - MSK0421").Range("A1:H36"), Worksheets("Bukkecenter - MSK0406").Range("A1:H36"), _
Worksheets("Pladelinie - MND01-Pladelinie").Range("A1:H36"), Worksheets("CO2 - MND12CO-2").Range("A1:H36"), Worksheets("Mandskab RAL - MND01").Range("A1:H36"), _
Worksheets("Ideal hyldeautomat - MSK0717").Range("A1:H36"), Worksheets("Mandskab specialprod. - MND05").Range("A1:H36"), Worksheets("Epoxy - MSK1300").Range("A1:H36"), _
Worksheets("Montage - MND04").Range("A1:H36"), Worksheets("Træproduktion - MND06").Range("A1:H36"), Worksheets("CNC Træ - MSK8500").Range("A1:H36"), _
Worksheets("Bejdse og voks Træ - MSK8850").Range("A1:H36"), Worksheets("Maling og lak Træ - MSK8800").Range("A1:H36"), Worksheets("Montage Træ - MSK8900").Range("A1:H36"), _
Worksheets("LV Rørsav - MSK2200").Range("A1:H36"), Worksheets("LV Combi-laser - MSK4010").Range("A1:H36"), Worksheets("LV Kantpres - MSK0421").Range("A1:H36"), _
Worksheets("LV Rørlokker (lille) - MSK3022").Range("A1:H36"), Worksheets("LV Rørlokker (stor) - MSK3024").Range("A1:H36"), Worksheets("LV CO2-robot - MSK2353").Range("A1:H36"), _
Worksheets("LV CO2 manuel - MSK2381").Range("A1:H36"), Worksheets("LV Manuel svejs - MSK2402").Range("A1:H36"), Worksheets("LV Pg 12 svejser - MSK0727").Range("A1:H36"), _
Worksheets("LV LIBRA aut. svejs - MSK0746").Range("A1:H36"), Worksheets("LV Epoxy - MSK1300").Range("A1:H36"), Worksheets("LV Montage - MND04").Range("A1:H36"), _
Worksheets("TILNYKAPACITET").Range("A1:I36"))

'Loop through Array data
For x = LBound(MySlideArray) To UBound(MySlideArray)
'Copy Excel Range
MyRangeArray(x).Copy

'Paste to PowerPoint and position

On Error Resume Next
Set shp = myPresentation.Slides(MySlideArray(x)).Shapes.PasteSpecial(DataType:=2) 'Excel 2007-2010
' Set shp = PowerPointApp.ActiveWindow.Selection.ShapeRange 'Excel 2013
On Error GoTo 0

'Center Object
With myPresentation.PageSetup

shp.Left = (.SlideWidth \ 2) - (shp.Width \ 2)
shp.Top = (.SlideHeight \ 2) - (shp.Height \ 2)

End With

Next x

Thanks in advance!
Best regards