Отработка макросов при открытии документа

Есть такой вот макросFunction FindByKey(Sheetname,keycol,key,col) Dim Doc as Object Dim Sheet as Object Dim SearchDesc as Object Dim Found as Object Dim CellAdr as Object Dim oCell as Object Doc = StarDesktop.CurrentComponent Sheet = Doc.Sheets.getByName(Sheetname) SearchDesc = Sheet.createSearchDescriptor() SearchDesc.SearchString = key Found = Sheet.findAll(SearchDesc) FindByKey="" Dim i As Integer for i=0 to Found.getCount()-1 CellAdr = Found(i).getCellAddress if (CellAdr.Column=keycol) then oCell=Sheet.getCellByPosition(col,CellAd r.Row) FindByKey=oCell.getString endif nextEnd FunctionОн ищет значения в другом листе. При открытии документа вылетает ошибка, из-за доступа к еще не созданному листу. Кто такое как борет?