Macro to change outline color to Custom Spot Color palette

Hi i have this macro below

Sub Macro1()
    ' Recorded 03/11/2015
    ActiveLayer.Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 100, 100, 0)
End Sub

i am trying to change the outline color of a object but using a macro.But the color im trying to get it to change to is a Custom Spot Color .I want the macro to use a color name exactly from the Custom Spot Color palette . I can easily add the color to the default palette but this is not a option as has to be direct from the Custom Spot Color palette.How is this possible please ive tried recording many times.Maybe is just need editing like this below .

Sub Macro1()
    ' Recorded 03/11/2015
    ActiveLayer.Shapes(1).Outline.SetProperties Color:=CreateSpotColor(0, 100, 100, 0)
End Sub