Hi Bob
From the VBA Reference:
Object.Rotate BasePoint, RotationAngle
Object
All Drawing Objects, AttributeReference
The object or objects this method applies to.
(...)
Therefore the Rotate method requires an object not a variant:
Dim TmpObj As AcadEntity
Dim TmpPnt As Variant
ThisDrawing.Utility.GetEntity TmpObj, TmpPnt, vbCrLf & "Select Region: "
TmpObj.Rotate TmpPnt, 0.7853981 '45 degrees
Cheers
--
Juerg Menzi
MENZI ENGINEERING GmbH, Switzerland
http://www.menziengineering.ch