Error with OLEObject
Hi there
My problem is : when excution gets to this line: 

Set cboTemp = ws.OLEObjects("TempCombo")

it gives me 
Methode of OLEObjest of worksheet Failed
Any how to solve the Error ?

Here is the whole code: 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

Dim str As String 
Dim cboTemp As OLEObject 
Dim ws As Worksheet 
Set ws = ActiveSheet 

Set cboTemp = ws.OLEObjects("TempCombo") 
  On Error Resume Next 
If cboTemp.Visible = True Then 
  With cboTemp 
    .Top = 10 
    .Left = 10 
    .ListFillRange = "" 
    .LinkedCell = "" 
    .Visible = False 
    .Value = "" 
  End With 
End If 

errHandler: 
  Application.EnableEvents = True 
  Exit Sub 
  
End Sub