Variable Array based on cell value

[Aflatoon]

That's the old code. Can you post the latest code you were trying?

[eduardodanon]

Here it is:

On Error Resume Next 
Sheets("Home").Visible = True 
TotalSlides = Range("I1").Value 
 
Set tb = Worksheets("Home").ListObjects("tblCopy") 
With tb.DataBodyRange 
    ReDim MyRangeArray(.Rows.Count - 1)
      ReDim MySlideArray(.Rows.Count - 1) 
     
    For n = 1 To .Rows.Count 
        Set MyRangeArray(n - 1) = Worksheets(.Cells(n, 1).Value).Range(.Cells(n, 2).Value) 
        MySlideArray(n - 1) = .Cells(n, 3).Value  'PS: it did not work with "set" either.

    Next 
End With 
 
(...) 
 
'Make PowerPoint Visible and Active
PowerPointApp.ActiveWindow.Panes(2).Activate 
 
'Create a New Presentation
Set myPresentation = PowerPointApp.ActivePresentation 
'Loop through Array data
For x = LBound(MyRangeArray) To UBound(MyRangeArray) 
    '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

[eduardodanon]

ahhhhhh i've just closed and opened the excel and ppt, and it worked! Many Thanks again! I hope not to disturb you again kkk
thanks!