Well, strange.
For sure it was a bug in line 1217 and not 1216? It is important for me.
I live a little longer on this world, but the VBA does not cease to suprise me.
Delete entire lines 1217 and 1220, or only numbering of these lines. In the event of a runtime error on line 1216 or 1222, execution should proceed to error handling (Select Case Erl (); Case 1216 or Case 1222). If an error occurs 50 times in a row, the macro will be interrupted with an appropriate message that the scope can not be copied or pasted into the slide. In the event of an error in a line other than 1216 and 1220, you will receive a message with a system's description of the error and the line of code in which the error occurred.

Artik