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