I need help. Contour Inset Code Error

Sub Inset()

Dim eff1 As Effect
Set eff1 = ActiveLayer.Shapes(2).CreateContour(cdrContourInside, 0.25, 1, cdrDirectFountainFillBlend, CreateCMYKColor(0, 0, 0, 100), CreateCMYKColor(0, 0, 0, 100), CreateCMYKColor(0, 0, 0, 100), 0, 0, cdrContourSquareCap, cdrContourCornerMiteredOffsetBevel, 15#)
ActivePage.Shapes.All.CreateSelection
ActiveSelection.Separate
  
End Sub

 

Im getting this error saying parameter index is out of range. Help? This is a contour code assigned to a button for a work macro im making for easy access. My other buttons work well :) Thanks to John's little Tutorials.

How do i fix?

 

Basically it looks like this... I create Logo mats, so this is relevant to my work.Everything works but the inset.