Написание скрипта в Command_BeforeExecute

Здравствуйте.
Подскажите пожалуйста как написать скрипт для command_beforeexecute чтобы он обрабатывал сразу несколько выделенных объектов?
Я выделяю несколько объектов,нажимаю правой кнопкой мыши,выбираю свою команду,попадаю в comand_beforeexecute.
Думал что можно написать вот так

Sub Command_BeforeExecute(Command, Obj, Cancel)

Dim ObjS
For Each ObjS in Obj

next 
End Sub

... но так не получается