Hi Jimbob,

apart form other issues,
which will be addressed in the next question, IMHO,

Dim wrdApp As Word.Application

alone is not sufficient.

There has to be 'getobject' or 'createobject' in addition,
like for an already running instance of Word:

Dim wrdApp As Word.Application
set wrdApp = getobject(, "Word.Application")

With wrdDoc
Dim BmkNm As String
BmkNm = "S1"
End With

Doesn't affect Word at all.

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"