The code below works in 2003 in a module. I took the help example in VBA and
made a minor change. I also added a textbox to the active worksheet. See if
this helps.


Set Text1 = ActiveSheet.OLEObjects("Textbox1").Object
CallByName Text1, "MousePointer", VbLet, vbCrosshair
Result = CallByName(Text1, "MousePointer", VbGet)

"George B" wrote:

All the references I have found on this procedure appear to be for use in a
class module. I would like to use it to call a procedure in Module1. Is
this possible? What is the object to be specified in
CallByName object,procname,calltype,[args()]