Thanks, guys.

I am trying to "clean up sloppy coding" to replace Selection objects with
Range objects.  A part of my code looped through the shapes, and then
replaced some shapes with other shapes (by opening another Word document and
getting the "new" shapes), using the Selection object.  I just want to put
the "retrieved" shape where the deleted shape was, using a Range object.

Now, my question is, how do I edit the shape's (a textbox) font without the
Selection object... (see With oShape.Anchor.Font, below).

I think I may have solved my initial problem by declaring oShape, as
suggested by Jezebel (thanks!).  Here's my code:
Sub getShapes()
   Dim oShape As Shape, oRng As Range, X As Integer
   Dim myBox As String
   For X = 1 To ActiveDocument.Shapes.Count
       If ActiveDocument.Shapes(X).Name = "myBox" Then
           Set oShape = ActiveDocument.Shapes(X)
           Set oRng = ActiveDocument.Shapes(X).Anchor
           Documents.Open FileName:="c:\myBox.doc"
           ActiveDocument.Shapes(1).Select
           Selection.Copy
           ActiveWindow.Close savechanges:=False
           oShape.Delete
           oRng.Paste
           Set oShape = ActiveDocument.Shapes(X)
           With oShape.Anchor.Font
               .Name = "Arial"
               .Size = 12
               .Bold = True
               .Color = wdColorAqua
           End With
   Next
...
theEnd:
End Sub

TIA, again.

st.