title: Cells.Find() Raises "Runtime Error 91: Object Variable or With Block Not Set"
body: <p><strong>What I want:</strong>
  I've got a lot of sheets whith different devices. Let's call one of these sheets "WS1".</p>
  
  <p>And I've got a seperate sheet with all existing devices and the appropriate OS next to it. This one we call "list".</p>
  
  <p>Now I want the other sheets (e.g. the "WS1") to check the "list", find the right device, and copy the right OS into the WS1-sheet.</p>
  
  <p><strong>the manual way would be:</strong></p>
  
  <ul>
  <li>select cell "C3" of WS1 and copy it.</li>
  <li>open the "list"-Sheet and find the copied entry</li>
  <li>select the cell left to the found entry and copy it</li>
  <li>open the WS1 again, select the left cell right next to the active cell and paste the new clipboard (which contains the OS)</li>
  <li>select the next cell which is under and on the right side of the active cell.</li>
  <li>loop until every device in WS1 is filled with an OS</li>
  </ul>
  
  <p><strong>What I've got so far:</strong></p>
  
  <pre><code>Dim DataObj As New MSForms.DataObject
  Dim strCliBoa As String
  'strCliBoa = DataObj.GetText
  DataObj.GetFromClipboard
  
  Range("C3").Select
  Selection.Copy
  strCliBoa = DataObj.GetText
  Sheets("list").Select
  Range("A1").Select
  Cells.Find(What:=strCliBoa, After:=ActiveCell, LookIn:=xlFormulas, _
      LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
      MatchCase:=True, SearchFormat:=False).Activate
  ActiveCell.Offset(0, -1).Select
  Selection.Copy
  strCliBoa = DataObj.GetText
  Sheets("WS1").Select
  ActiveCell.Offset(0, -1).Select
  ActiveSheet.Paste
  ActiveCell.Offset(1, 1).Select
  </code></pre>
  
  <p><strong>My issue:</strong>
  "Runtime Error 91: Object variable or with block variable not set"
  and it marks the cells.find-method.</p>
  
  <p>Can someone tell me what I'm doing wrong?^^
  Thanks in advance!</p>
  
  <p>(oh, almost forgot: I'm using ms excel 2010 on Win7)</p>