Try adding ActiveDocument.Fields.Update at before the lbl_Exit line.

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Thank you for your suggestion.

I copied ActiveDocument.Fields.Update and put it before the lbl_Exit line so the code was:

Dim oFld As Field
Dim oRng As Range
For Each oFld In ActiveDocument.Range.Fields
If oFld.Type = wdFieldAsk Then
If InStr(oFld.Code, "TranscriptPage") > 0 Then
Set oRng = oFld.Code
oRng.Collapse wdCollapseStart
oRng.Select
oFld.Update
End If
End If
Next
ActiveDocument.Fields.Update
lbl_Exit:
Exit Sub
End Sub

The bar at the bottom of the page still did not update to show the current page name.

Also the current document contains 7 instances of "TranscriptPage". The macro goes through the document once allowing me to enter the pages numbers, then the macro repeats showing the ASK box again, starting at the beginning, showing each sequentially to the last one.