Good day
I have adapted the code by John Wilson and it is working perfectly, solving the first part of the problem
The following code is in the slides code and a button is used to reset the global iCnt variable to 10:
Private Sub CommandButton1_Click()
iCnt = 10
End Sub
The following code is in a normal module:
Option Explicit
Global iCnt As Integer
Sub copyme(oshp As Shape)
Dim newshp As ShapeRange
oshp.Copy
Set newshp = oshp.Parent.Shapes.Paste
newshp(1).Top = oshp.Top + 100
newshp(1).Left = iCnt
iCnt = iCnt + 110
End Sub
The second part is to copy whatever is in the second row a number of times to the third row, i.e. repeat the pattern created in the second line a number of times.
Any further assistance is greatly appreciated.
Best Regards
Vanhunk