VBA array code help

[karthikthandapani]

[COLOR=#008000][FONT=Consolas]'List of PPT Slides to Paste to
[/FONT][/COLOR][COLOR=#141414][FONT=Consolas] MySlideArray = Array(2, 3, 4, 5, 6)[/FONT][/COLOR]

[COLOR=#008000][FONT=Consolas]'List of Excel Ranges to Copy from
[/FONT][/COLOR][COLOR=#141414][FONT=Consolas]   MyRangeArray = Array(Sheet1.Range([/FONT][/COLOR][COLOR=#800000][FONT=Consolas]"A1:C10"[/FONT][/COLOR][COLOR=#141414][FONT=Consolas]), Sheet4.Range([/FONT][/COLOR][COLOR=#800000][FONT=Consolas]"A1:C10"[/FONT][/COLOR][COLOR=#141414][FONT=Consolas]), _[/FONT][/COLOR]
[COLOR=#141414][FONT=Consolas]      Sheet3.Range([/FONT][/COLOR][COLOR=#800000][FONT=Consolas]"A1:C10"[/FONT][/COLOR][COLOR=#141414][FONT=Consolas]), Sheet2.Range([/FONT][/COLOR][COLOR=#800000][FONT=Consolas]"A1:C10"[/FONT][/COLOR][COLOR=#141414][FONT=Consolas]), Sheet5.Range([/FONT][/COLOR][COLOR=#800000][FONT=Consolas]"A1:C10"[/FONT][/COLOR][COLOR=#141414][FONT=Consolas]))[/FONT][/COLOR]

With the above snippet, I need that to be modified below;

a) SlideArray - Modify that to fit n number of slides depends upon the requirement
b) MyRangeArray - Modify that to read & export ranges by the home tab. Looping style.

[/FONT][/COLOR][COLOR=#141414][FONT=Verdana][I]With myPresentation.PageSetup[/I][/FONT][/COLOR]
[COLOR=#141414][FONT=Verdana][I]shp.Left = (.SlideWidth \ 2) - (shp.Width \ 2)[/I][/FONT][/COLOR]
[COLOR=#141414][FONT=Verdana][I]shp.Top = (.SlideHeight \ 2) - (shp.Height \ 2)[/I][/FONT][/COLOR]
[COLOR=#141414][FONT=Verdana][I]End With[/I][/FONT][/COLOR][COLOR=#141414][FONT=Verdana]

c) SlideSetup - Respective to the range, make it to cover full slide (leave space to title)

Any help would be appreciated!

 

[karthikthandapani]

Can anyone please crack this up!