Run-time error-2147417848 (8001
I am writing an application that creates a number of workbooks and links
cells in them to a "Main" workbook. The workbooks are populated from a Master
List contained in another workbook.
The code works well on systems having 512 MB RAM, but gives the above error
when run on systems even with 512 MB RAM. Other system details at the point
of occurance of the error reported by the Task Manager are
1. Excel is using 85 €“ 94 % of processor time
2. 16,364 K memory (winword 19,028 K appears to be normal)
3. Peak CPU usage before break point is about 52% and page file usage is
89.2MB
4. At break point Page file usage is 89.5MB.
Code at the point of error is
SUWb.Sheets(SUName).Activate
Range(Cells(FIRSTROW, SERCOL), Cells(FIRSTROW + nos - 1,
SERCOL)).Select
Selection.EntireRow.Insert
MasterWb.Sheets(Catg).Activate
ActiveSheet.Range(Cells(StartRow, SERCOL), _
Cells(StartRow + nos - 1, FLYSCOL)).Copy
SUWb.Sheets(SUName).Activate
ActiveSheet.Paste Destination:=Cells(FIRSTROW, SERCOL)
NB - caps are all constants.
- appx 30 to 40 rows are usually pasted, each with about 4 columns.
On occurance of the error, Excel hangs, but the other applications run
normally. I have to end task to get out.
Would be grateful for help on this please.
Jai
|