standard code module

[vba]

Public RunList as Boolean
[/vba]

in the controlling code

[vba]

RunList = False

'working code

RunList = True
[/vba]

Listbox code

[vba]
If RunList Then

'do its stuff

End If
[/vba]