title: VBA - Compile Error - Method or Data member not Found
body: <p>I have been using this excel program for several months without issues.  suddenly a couple days ago it started to throw this error.  On sheet named "Input" I will double click a cell in column "A" which will create a drop down box that will fill with data from the "Data" sheet.  I start typing and then I select the data to add to the cell.  Now when I click the cell and get an error message "Compile Error - Method or data member not found".  Here is my block of code and the error is showing near the bottom highlighting "Me.TempCombo.Activate".  </p>
  
  <pre><code>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      Dim str As String
      Dim cboTemp As OLEObject
      Dim ws As Worksheet
      Set ws = ActiveSheet
  
      If Target.Column = 1 And Target.Row &gt; 12 And Target.Row &lt;&gt; HRRow And Target.Row &lt;&gt; HRRow - 1 Then
  
          lRow = Sheets("Data").Range("A65536").End(xlUp).Row
          Set cboTemp = ws.OLEObjects("TempCombo")
            On Error Resume Next
  
            With cboTemp
            'clear and hide the combo box
              .ListFillRange = ""
              .LinkedCell = ""
              .Visible = False
            End With
          On Error GoTo errHandler
            'If Target.Validation.Type = 3 Then
              'if the cell contains a data validation list
              Cancel = True
              Application.EnableEvents = False
              'get the data validation formula
              'str = Target.Validation.Formula1
              'str = Right(str, Len(str) - 1)
              str = "=Data!A2:A" &amp; lRow
  
              With cboTemp
                'show the combobox with the list
                .Visible = True
                .Left = Target.Left
                .Top = Target.Top
                .Width = Target.Width + 5
                .Height = Target.Height + 5
                .ListFillRange = str
                .LinkedCell = Target.Address
              End With
              'cboTemp.Activate
              Me.TempCombo.Activate
              'open the drop down list automatically
              Me.TempCombo.DropDown
  
        End If
  
  errHandler:
        Application.EnableEvents = True
        Exit Sub
  End Sub
  </code></pre>
  
  <p>I tried several things and for the life of me I cannot figure out what changed. 
  Any help will be appreciated. Thank you.</p>