Okay, here you go. Now you can only select blocks, and it will make sure that it is an xref before preforming the opperation to it. Use with the other portions or Randy's code.
(defun Xref-Loader (XrefOpp / ActDoc BlkCol ss Ent BlkObj)
(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(vla-StartUndoMark ActDoc)
(setq BlkCol (vla-get-Blocks ActDoc))
(if (setq ss (ssget '((0 . "INSERT"))))
(foreach Lst (ssnamex ss)
(if
(and
(= (type (setq Ent (cadr Lst))) 'ENAME)
(= (vla-get-IsXref (setq BlkObj (vla-Item BlkCol (cdr (assoc 2 (entget Ent)))))) :vlax-true)
)
(vlax-invoke BlkObj XrefOpp)
)
)
)
(vla-EndUndoMark ActDoc)
(princ)
)