error '13' type mismatch

I have had some help getting this code to here but now I am having troubles with the If statement. This code is building a list for a combo box. What I am trying to do is associate several items in the list to one other object. The code without the If statements does a 1:1 association just fine. What I am getting at the If is a Type Mismatch error. Any thoughts?

Please Login or Register  to view this content.

Hello Bope,

Check that your Shape name matches what is in the code.

Please Login or Register  to view this content.

Sincerely,
Leith Ross

Leith,
I am not quite following you here. If I record a macro and select the shape it records it as Shapes("#6").

Hello Bope,

Can you attach or send me the workbook? My email is [email protected].

Thanks,
Leith Ross

Email sent.

Thanks

Looks like a simple fix to me. Change:

Please Login or Register  to view this content.

to:

Please Login or Register  to view this content.

HTH

Jason

Hello Bope,

Here is the revised macro code. The problem was with the Or operator in the If Then statement. This way is easier to read, maintain, and understand.

Please Login or Register  to view this content.

Sincerely,
Leith Ross

Jason, Thanks for the help with the syntax on the If statement. Leith sent me an email with his Case statements so that is what I saw first. Below is the final code with some additions since I have some groups in the list. This code shows the groups in the dropdown and associates a blank picture with them just in case someone acidentally chooses a header they wont get an error. This might not be the most elegant but it works. Thank you both for the help.

Eric

Please Login or Register  to view this content.