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


Code:
--------------------
Set cboTemp = ws.OLEObjects("TempCombo")
--------------------



it gives me
Code:
--------------------
Methode of OLEObjest of worksheet Failed
--------------------

Any how to solve the Error ?

Here is the whole code:


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
--------------------


--
helmekki


------------------------------------------------------------------------
helmekki's Profile: http://www.excelforum.com/member.php...fo&userid=6939
View this thread: http://www.excelforum.com/showthread...hreadid=487993