hmk
Active Member
- Joined
- Jun 8, 2004
- Messages
- 423
Error with OLEObject
Hi there
My problem is : when excution gets to this line:
it gives me
Any how to solve the Error ?
Here is the whole code:
Hi there
My problem is : when excution gets to this line:
Code:
Set cboTemp = ws.OLEObjects("TempCombo")
Code:
Methode of OLEObjest of worksheet FailedHere 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
