title: Set a selection as a saved Range
body: <p>What I'm trying to do with this is:</p>
  
  <ol>
  <li>Search for "Part Class". I'm doing this because it can be in different spots on different sheets.</li>
  <li>Save the column address as "a" which is set as a Range</li>
  <li>Search through that column for each of the 5 criteria and delete those entire rows.</li>
  </ol>
  
  <p>When I run this code, I get an "object required" error.</p>
  
  <pre><code>Dim a As Range
  Dim b As Range
  Dim NSC As String
  
  Cells.Find("Part Class").Activate
  Set a = Selection.EntireColumn.Select   'Here is where the issue comes from
  a.Find("CONS").EntireRow.DELETE
  a.Find("MISC").EntireRow.DELETE
  a.Find("PFG").EntireRow.DELETE
  a.Find("PRT").EntireRow.DELETE
  a.Find("TOTE").EntireRow.DELETE
  </code></pre>
  
  <p>The answer may be simple, but I have little knowledge of VBA language. I feel like my issue is with my syntax and/or how I'm trying to continue with the "Part Class" search.</p>
  
  <p><strong>FOLLOW UP PROBLEM:</strong></p>
  
  <p>Okay so I took Tim's code and edited a little but now I'm getting an issue of "sub or function not defined". Would that be because of the Label I made?</p>
  
  <pre><code>Dim a As Range
  Dim loopCount As Integer
  
  Dim NSC As String
  
  Set a = ActiveSheet.Cells.Find("Part Class").EntireColumn
  
  On Error Resume Next
  Do While loopCount &gt; 0
      a.Find("CONS").EntireRow.DELETE
      a.Find("MISC").EntireRow.DELETE
      a.Find("PFG").EntireRow.DELETE
      a.Find("PRT").EntireRow.DELETE
      a.Find("TOTE").EntireRow.DELETE
      On Error GoTo Break1
  Loop
  
  Label Break1
  </code></pre>
  
  <p>I wanted to do something like loopCount++ but I'm not sure how to put that in there.</p>