Option button returning compile error

[ObiWanBaloney]

Hi Excelforums,

I'm getting the compile error: "wrong number of arguments or invalid property assignment" on the first line of the vba code for an option button:


Private Sub OptionButton1_Click() <----- highlighted line
If OptionButton1.Value = True Then
Set Shapes("Combobox1").ControlFormat.ListFillRange = "uniquecompanylist"
End Sub


Though I suspect the problem lies somewhere other than the 1st line.

[tlafferty]

As a minimum, you need an End If statement after your line that contains the Set Shapes. Also, I'm not sure how you're bringing in what I assume to be a named range "uniquecompanylist" but I suspect that line will also fail.

[tlafferty]

Note - the above is untested, so there may be other things wrong as well.

[JosephP]

listfillrange is a string property so lose the 'Set' part.

[ObiWanBaloney]

tlafferty: Yeah, as expected, that line is having problems and "uniquecompanylist" is indeed a named range. Is there a proper way to change listfillrange via macro?

JosephP: I dropped the set part. Still doesn't work though as kinda expected.


Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Shapes("Combobox1").ControlFormat.ListFillRange = "uniquecompanylist" <---------- highlighted line
End If
End Sub


The new error is "object doesn't support this property or method".

[JosephP]

you didn't say what type of control but probably

Please Login or Register  to view this content.

[ObiWanBaloney]

Work perfectly, thanks a bunch!