Sleeper: Copy multiple non-contiguous selections to other workbook

[Jacob Hilderbrand]

Try this:

SelAreas(i).Copy Workbooks("MyWorkBookName").Sheets("MySheetName").Range(PasteRange.Address).Offset(RowOffset, ColOffset)