fsteeg

REM  *****  BASIC  ***** 
Function CELL_NOTE(vSheet,lRowIndex&,iColIndex%) 
Dim v 
   v = getSheetCell(vSheet,lRowIndex&,iColIndex%) 
   if vartype(v) = 9 then 
      CELL_NOTE = v.Annotation.getText.getString 
   else 
      CELL_NOTE = v 
   endif 
End Function