Sub absmaps()

Dim sRpl As String
Set oRng = ActiveDocument.Range
MsgBox "This macro will work for you in adding the full name reference you
need to the clipboard and than paste it at your insertion point"

sRpl = "American Bible Society Maps"
With oRng.Find
  .Text = ""
  With .Replacement
     .Text = sRpl
  End With
End Sub
Just want to insert that text but my macro must be wrong please correct it,
thanks