Add shape without selecting worksheet or cell

Hi
The following code works well in circling [actually an oval around] a cell - but I haven't been able to figure out how to add a shape without selecting the sheet and a cell. I'm assuming this is possible and I'm missing the obvious. Any help would be appreciated. Thanks.
Richard

CompletedChecklistForm.Select
  CompletedChecklistForm.Range(ptrChecklistFormQCurrent). _
Offset(0, (NewQuestionNumberNewAnswerNumber - 1) * 4).Select
        With ActiveSheet.Shapes.AddShape(msoShapeOval, 135.75, 112.5, 7.5, 7.5)
                    .Fill.Visible = msoFalse
                    .Top = ActiveCell.Top
                    .Left = ActiveCell.Left
                    .Width = ActiveCell.Width
                    .Height = ActiveCell.Height
        End With
SheetChecklistUserEntry.Select