J
JamieD
Hi all,
I have a macro which causes XP and and 2000 to produce this error
"Excel cannot complete this task with available resources. Choose less
data or close other applications". However it will run on 98.
The macro is quite large but nothing that is amazing. Unfortunately I
have inherited the workbook off someone and it contains numorous macros
that are all run in turn from one master macro (baisically a bit of a
mess and hard to tell whats going on).
The macro is below, it is baisically inserting zeros to allow sorting
on each sheet.
"Sheets("TEAM A").Select
ActiveWindow.ScrollRow = 984
Range("A1000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "0"
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.filldown
ActiveWindow.ScrollRow = 1
Range("A1").Select
Sheets("DAY 1 TEAM B").Select
ActiveWindow.ScrollRow = 984
Range("A1000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "0"
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.filldown
ActiveWindow.ScrollRow = 1
Range("A1").Select"
The macro is longer than this, it is baisically the same but repeats
another 20 times (with the sheet name changing each time). I haven't
posted the whole thing as it is very long but if I have to thats no
problem.
I am not runniong any other programs when running this macro and have
tried it on many machines.
Hope someone can help.
Many Thanks
J
I have a macro which causes XP and and 2000 to produce this error
"Excel cannot complete this task with available resources. Choose less
data or close other applications". However it will run on 98.
The macro is quite large but nothing that is amazing. Unfortunately I
have inherited the workbook off someone and it contains numorous macros
that are all run in turn from one master macro (baisically a bit of a
mess and hard to tell whats going on).
The macro is below, it is baisically inserting zeros to allow sorting
on each sheet.
"Sheets("TEAM A").Select
ActiveWindow.ScrollRow = 984
Range("A1000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "0"
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.filldown
ActiveWindow.ScrollRow = 1
Range("A1").Select
Sheets("DAY 1 TEAM B").Select
ActiveWindow.ScrollRow = 984
Range("A1000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "0"
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.filldown
ActiveWindow.ScrollRow = 1
Range("A1").Select"
The macro is longer than this, it is baisically the same but repeats
another 20 times (with the sheet name changing each time). I haven't
posted the whole thing as it is very long but if I have to thats no
problem.
I am not runniong any other programs when running this macro and have
tried it on many machines.
Hope someone can help.
Many Thanks
J