The following VBA routine runs fine unless I try to execute it from a dialog
box. It then crashes on the |Application.Goto reference:="taglist_origin"|
line of code with a |Method 'Goto' of 'object _Application' failed| message.

Sub APen1_AddP()

Dim Choice, Tag, ColNum As String
Dim Index, Counter As Integer

Application.ScreenUpdating = False
Application.Calculation = xlManual

With DialogSheets("DialogAPen1")
Index = .ListBoxes("List Box APen1").Value
Choice = .ListBoxes("List Box APen1").List(Index)
End With

'Loop through the tag list to find the tag that matches the selection.

Application.Goto reference:="taglist_origin"
Counter = 0
Do While Counter < 250
Counter = Counter + 1
Selection.Offset(1, 0).Select
Tag = ActiveCell.Value
If Tag = Choice Then Exit Do