Set the value of a combobox

I have a combobox that I want to set the value of as a default, but I get the
error
'Object doesn't support this property or method'.

Any ideas on how to fix?

Bruce

Sub reset()
Set Sheets("Sheet1").Shapes("ComboBox1").Value = 3
End Sub