Как запустить макрос комбинацией без снятия выделения?

У меня тоже была такая проблема. Перед вызовом макроса выделение сбрасывалось. Но я решил ее.
Код такой:
Public HObj() as String ' Массив дескрипторов объектов
Public CounH as Long
' событие при смене выделения объектов
Private sub AcadDocument_SelectionChanged()
  Dim i as Long
  With ActiveDocument.PickfirstSelection
   if .count=0 then exit sub
     CountH = 0
     Redim Hobj(0)
     for i = 0 to .count-1
         redim preserve Hobj(CountH)
         Hobj(i) = .Item(i).Handle
         countH = CountH + 1
     Next i
  End with
End sub
' Далее в своем макросе можете использовать
sub MyMacro
    dim Obj as AcadEntity;
    dim i as long
    for i = 0 to CountH - 1
        set Obj = HandelToObject(HObj(i))
        ' Можете манипулировать объектом Obj
    Next i
end sub