If you want to execute an action on multiple selected objects, you'll have to create the method on model level. You then can loop through the selected objects like this:
Sub %Method%(obj)
Dim Ent
For Each Ent in ActiveSelection
MsgBox Ent.Name
Next
End Sub