For j=1 to datatable.GetSheet("OR1").GetRowCount

	   datatable.GetSheet("OR1").SetCurrentRow(j)

	   If datatable("name","OR1")=ObjectName Then

		   If datatable("micclass","OR1")<>" " Then
			   desc("micclass").value=datatable("micclass","OR1")
		   End If

'		   If datatable("html id","OR1")<>" " Then
'			   desc("micclass").value=datatable("html id","OR1")
'		   End If

		   If datatable("class","OR1")<>" " Then
			   desc("micclass").value=datatable("class","OR1")
		   End If

		   If datatable("innertext","OR1")<>" " Then
			   desc("micclass").value=datatable("innertext","OR1")
		   End If

     Set obj=Browser("creationtime:=0").page("title:=.*").ChildObjects(desc)

	Set FindObject=obj(0)
	  'obj1=FindObject(obj)

	   End If

   Next
End Function