``` Private Sub ShopScroll_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblshopnum.Caption = "Num: " & scrlNum.Value If scrlNum.Value > 0 Then lblshopnum.Caption = "num: " & Trim$(shop(scrlNum.Value).Name) End If ' Error handler Exit Sub errorhandler: HandleError "scrlNum_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ``` i cant find the command to open the shop let alone adding a code to activate that >.< ane help would be nice