title: Insert shape without SELECT
body: <p>A piece of my code goes through a range of cells and if some cell satisfies certain criteria - inserts the shape in this cell. It works, but I would like to find out an alternative approach avoiding <code>select</code>.</p>
  
  <pre><code>'above - code to find satisfying cell
  ActWS.Activate       'Activate Sheet
  ActWS.Cells(rActPlan - 1, vReturnColumn).Select 'Select satisfying cell
  ActiveSheet.Shapes.AddShape(msoShapeOval, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height).Select
  Selection.ShapeRange.Fill.Visible = msoFalse
   With Selection.ShapeRange.Line
          .Visible = msoTrue
          .ForeColor.RGB = RGB(0, 255, 0)
          .Weight = 2.25
   End With
  </code></pre>