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
Loop
Etc.....
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
Loop
Etc.....