Looping though Custom Properties in VBA

[suekay]

Hi All,

I'm trying to loop through some code (unsuccessfully! :

For i=1 to 30
Tbx_Change.Value = VisLeader.Cells("Prop.Option(i).format").ResultStr ("")
Tbx_Label.Value = VisLeader.Cells("Prop.Option(i).label").ResultStr( "")
next i

Seems that it doesn't like the i in ("Prop.Option(i).format")

Has anyone managed to loop through CP's

thanks
Sue