type mismatch, for string/value

I am using the code below, and trying to change the shape color,, on the excel sheet, I added a combobox with items "vbBlack, vbRed,vbYellow"

everytime the code runs, it gives me an Error 13 Type mismatch. how can I fix this, so the error doesn;t reproduce and accept the string/value.

Please Login or Register  to view this content.

Any chance you could upload a sample workbook?

Click on GO ADVANCED, scroll down and click Manage Attachments.

here is the workbook, the goal is to change the cell tracker line colors, thank you