Sub Test() Dim s As Shape Set s = ActiveLayer.CreateEllipse(0, 0, 2, 2) s.Properties("MyMacroParam", 0) = 2 MsgBox s.Properties.CountEnd Sub