Error with OLEObject

[hmk]

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

 

[erik.van.geit]

Hello, helmekki,

two possibilities come into my mind
1. you've made your combobox using the FORMS-toolbar
2. you don't have a combobox called TempCombo

kind regards,
Erik

 

[Norie]

http://www.mrexcel.com/board2/viewtopic.php?t=181281&highlight=