that does not create the effect. Underlined hyperlink.
well. I guess I have to live woith what i've got


Thansk


pETER
>oXL = CREATEOBJECT("excel.application")
>WITH oXL
> .Workbooks.Add()
>
> WITH .activesheet
> .range("B2").Hyperlinks.Add(.range("B2"), "http://www.tek-tips.com/index.cfm")
> .range("B2").Hyperlinks(1).TextToDisplay = "Tek-Tips Home"
> .range("B:B").EntireColumn.Autofit
> ENDWITH
>
> .visible=.t.
>ENDWITH