Change selected Texts Height to a source Text

After these two TEXT lisps (here & here), once again I am here with a new one on TEXT.

Sometimes we need to change the HEIGHT of a selection of TEXT entities, equal to that of a picked source TEXT.
Match properties command will do this, but this inbuilt AutoCAD command will change all the other properties like as color, layer etc.

So this LISP is here for you.
It will only change the HEIGHT of all selected texts same as the picked source TEXT.

* SAMETXHT.LSP (2Kb)
This command change the HEIGHT of a selection of TEXT entities, equal to that of a picked source TEXT.

Sequence of command lines for this routine:-

Command: STH
Select text to change its height:
Select objects:
Select string to match its height:

Download : SAMETXHT.LSP