If you wanted a variable.

Dim OLEObj as OLEObject
set Oleobj = ActiveSheet.OLEObjects("object 3")
oleobj.verb verb:=xlprimary



Dave Peterson wrote:

How about:
ActiveSheet.OLEObjects("object 3").Verb Verb:=xlPrimary

or
ActiveSheet.Shapes("Object 3").OLEFormat.Verb Verb:=xlPrimary

damorrison wrote:

Sorry Dave that doesn't work, maybe there is a way to globally name the
object?

it apears, all the examples I found when I searched it, referrs to :

ActiveSheet.Shapes("Object 3").Select
Selection.Verb Verb:=xlPrimary

which sucks because now you have to select the worksheet as well, and
that takes me out of the userform

--

Dave Peterson

--

Dave Peterson