View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
PT91745 PT91745 is offline
external usenet poster
 
Posts: 5
Default Range.Find abend on XP/Excel 2003

Below code got subscript out of range abend on XP/Excel 2003, but works find
on excel 2000. Does range.Find function not working on Excel 2003? Any
suggestion?


oriReportStartRow = oriRowIndex + oriBlankLine + oriHeaderLine + oriTOTALLine
oriGPStart = oriReportStartRow
objSheet(orisheet).Cells(oriReportStartRow - 1, 1) = "Gross Profit"
objSheet(orisheet).Cells(oriReportStartRow - 1, 1).Font.Bold = True
oriRowIndex = oriReportStartRow

'test find statement
Dim oriSearch As Range
Set oriSearch = objSheet(orisheet).Range("A2:IV100").Find("Gross
Profit", LookIn:=xlValue) ---- Abend subscript out of range???