Straight from the Recorder:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 11/8/2008 by James Ravenswood
'

'
ActiveSheet.OLEObjects.Add(ClassType:="Equation.3" , Link:=False, _
DisplayAsIcon:=False).Activate
Range("A1").Select
End Sub

--
Gary''s Student - gsnu200812


"fer555" wrote:

I am trying to insert a microsoft equation 3.0 by using vba. Is it possible
to do that?
Please give me some hints.

Thanks