VBA code - set print area in excel paste it as EMF in Powerpoint

[Marionetto]

Hello,
I have the code of a macro from "TheSpreadsheetGuru.com" (good macro for me)
I would like to modify the part below. I want to use the print areas in several Excel sheets instead of the areas as per the code below as a source for the copy and past as an Enhance metafile powerpoint

MyRangeArray = Array(Sheet1.Range("A1:C10"), Sheet4.Range("A1:C10"), _
Sheet3.Range("A1:C10"), Sheet2.Range("A1:C10"), Sheet5.Range("A1:C10"))

Thanks for any suggestions