just want to insert that text

[justamailman]

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

 

[David]

Sub absmaps()
Dim sRpl As String
sRpl = "American Bible Society Maps"
Selection.InsertAfter sRpl
End Sub