bool MSSheet::Hyperlink(int col, int row, String hypertext, String hyperaddress) {
	if (!App)
		return false;	

	VariantOle x, y;
	x.Int4(col);
	y.Int4(row);
	
	if (!(Sheet = Ole::GetObject(App, "ActiveSheet")))
		return false;

	ObjectOle Hyperlinks = Ole::GetObject(Sheet, "Hyperlinks");
	ObjectOle Cell1 = Ole::GetObject(Sheet, "Cells", x, y);
	VariantOle vCell;
	vCell.ObjectOle(Cell1);
	ObjectOle Link = Ole::GetObject(Hyperlinks, "Add", vCell);
	String d;
	if (Link != NULL) d= "Not Null"; else d="Null";
	PromptOK("After assing & link is "+d);
	VariantOle vAddr,vText;
	vAddr.BString(hyperaddress);
	vText.BString(hypertext);
	Ole::SetValue(Link, "Address", vAddr) ;
	Ole::SetValue(Link, "TextToDisplay", vText) ;
	return true;
}