Need increase Listbox size

[Gintaras]

Your code is correct. It shows popup menu. Maybe your macro skips the code. Try how it will work in empty macro.
Macro

Code:

Copy      Help

str Action
sel(PopupMenu("Look for Email[]Send/Write Email[]Phone[]Create Report"))
,case 1
,,Action = "LOOK FOR EMAIL"
,case 2
,,Action = "SEND/WRITE EMAIL"
,case 3
,,Action = "PHONE"
,case 4
,,Action = "CREATE REPORT"

out Action