ecть код  
'----------  
    Dim RFP As Object  
    Dim basebookname As String  
    Dim rowmax As Long  
    Dim massiv As Variant  
 
      basebookname = ThisWorkbook.Name  
      Set RFP = Workbooks(basebookname).Sheets("RFP")  
 
   rowmax = RFP.Cells(RFP.Rows.Count, 5).End(xlUp).Row  
 
  'и тут ошибка!  
   massiv= Range(RFP.Cells(7, 5), RFP.Cells(rowmax, 27)) 'rowmax = 1300  
 
код чудесно работал, пока в один прекрасный момент после манимуляций пользователя с файлом (к проэкту у него нет доступа) появилась ошибка в месте, где я в    
переменную massiv загоняю диапазон. до этого код чудно работал с этими-же данными. в чём же проблема?  
 
выяснил:  
 
err.number = 6  
err.description = "overflow"  
err.source = VbaProject  
 
ps office 2007 и 2010 выдают такую ошибку.