Need increase Listbox size

[frank]

It has something to do with speed.
Isolated it works in its own macro
in debug mode it also works fine.

then I noticed it does flash for a second as if something is chosen but nothing is assigned to the Action string.

here is the code b/f and after in case you see anything - do I need that "ret" at the end of these lists?

Thanks
Macro

Code:

Copy      Help

;get Category
sel(list("UDF[]WOH[]Replen[]None" "Category" "Assign a Project"))
,case 1
,,Category = "UDF"
,case 2
,,Category = "WOH"
,case 3
,,Category = "Replen"
,case 4
,,Category = ""
,case else
,,Category = ""
,,ret

;get Action

sel(PopupMenu("Look for Email[]Send/Write Email[]Phone[]Create Report[]Run Report[]Edit Report[]Create Report[]Create Order[]Adjust Order[]Review[]Present"))
,case 1
,,Action = "LOOK FOR EMAIL"
,case 2
,,Action = "SEND/WRITE EMAIL"
,case 3
,,Action = "PHONE"
,case 4
,,Action = "CREATE REPORT"
,case 5
,,Action = "RUN REPORT"
,case 6
,,Action = "EDIT REPORT"
,case 7
,,Action = "CREATE REPORT"
,case 8
,,Action = "CREATE ORDER"
,case 9
,,Action = "ADJUST ORDER"
,case 10
,,Action = "REVIEW"
,case 10
,,Action = "PRESENT"

;get Task
if(!inp(Task "Task Description" "Task Description")) ret