Function REF(Row as integer, Col as integer)
  dim SRV as Object, TMP as String

  SRV = createUnoService( "com.sun.star.sheet.FunctionAccess" )
  TMP = SRV.callFunction( "ADDRESS", Array(Row,Col) )
  REF = SRV.callFunction( "INDIRECT", Array(TMP) )

End Function