Hi Shauna,

You wrote:
     " Reading your previous post alongside the present one leads me to
believe
     that you have some code that is tootling around doing something, and
     then you want to take the user back to where they started. Right?"

That's exactly right.

Here's what I am trying to do, and I hope the explanation doesn't seem
too long or try your patience.

I transcribe medical dictation. A computer puts a Word 2003 document on
my screen, and this document has 3 continuous sections, such as one gets
by clicking on Insert>Break>Continuous in the standard menu. Section
one, which we cannot alter, has a bunch of demographic information,
including the first and last name of the patient. Not only can we not
alter it, we can't run macros or Word commands in it. It is protected.
However, we can highlight and select data in it.

Here is a bit of what Section 1 would look like (names changed to
protect patient confidentiality and to protect the guilty)

     *******Continuous Section 1**************
     Slicem N Stichem Medical Center - Confidential

     Patient Name:  DOE-SMITH, JANE
     MRN:  553355
     Date of Birth:  9/14/1900
     *******Continuous Section 2**************
Etc etc.

Our data can be entered only in continuous section 2. We can run macros
and Word commands there (Section 3 contains footer information).

When I type out the document, I like to have an autocorrect entry that
contains the first and last name of the patient. That way, when I am
typing out the report, instead of typing out something like:
     We placed Ignatz Kadiddlehopper-Schtuppen in the left lateral
     decubitus position and made an incision over the
     location of the gizzard,

I can type out:
     We placed UU PP in the left lateral decubitus position
     and made an incision over the location of the gizzard,
and UU will expand out into the first name and PP will expand out into
the last name. And no one will be able to accuse me of misspelling poor
old Mr. Kadiddlehopper-Schtuppen's name.

With the generous help of a bunch of people here and elsewhere, I have
made a macro that creates these autocorrect shortucts, but I'm not
entirely pleased with it. Here is what it does:

First of all, the macro notes where in the document the cursor is
located with this code:

' Remember where the cursor is at
' the start of the text. Call
' it rTmpCursorPosition
    Dim rTmpCursorPosition As Range
    Set rTmpCursorPosition = Selection.Range

It then goes to the top of section 1 with this bit of code:
' Go to section one
    Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1,
Name:=""
    Selection.Find.ClearFormatting

Then it looks for the section where one finds the words:
     Patient Name:

and puts the cursor smack against the last name of the patient with this
bit of code:
' Find and highlight last name using
' using wild card search
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Patient Name:"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdWord, Count:=1

Then it selects just the last name with this bit of code:
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "*,*"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend

Then this bit of code changes it to proper case, even if the last name
is a hyphenated one, and puts it into an autocorrect entry:

'Assign last name to autocorrect entry "varl"
    Dim sText As String
    sText = Selection.Text
    If InStr(1, sText, "-") Then
        sText = Replace(sText, "-", " ")
        sText = StrConv(sText, vbProperCase)
        sText = Replace(sText, " ", "-")
    Else
        sText = StrConv(sText, vbProperCase)
    End If
    AutoCorrect.Entries.Add Name:="varl", Value:=sText
'
'

The rest of the macro uses a similar logic.

At the end of the macro, the cursor is returned to its original position
with this code:
     rTmpCursorPosition.Select
     'End of Macro

One problem is that the screen jumps around a bit when playing the
macro. So I'd love it if you could tell me how to do that without
"setting" anything, as you said. If it's too big of a request, certainly
I'll understand. I have purchased a couple of books of VBA, as I am
beginning to find it an interesting diversion, and when I share my
macros with my colleagues, they really appreciate it.