Hi,
I just upgraded from excel 2000 to 2007 at work. Many of my macros display this when I run them - "not enough resources to display completely" All macros worked fine before upgrade. Example of a macro experiencing problems:
Sub one_page()
Workbooks.Open Filename:= _
"M:\pma\WEEKLY\WKTRENDS\Weekly Trend New\Weekly Trend One_Page Report template.xls"
Range("B7").Select
Windows("Weekly Trend Data Template.xlsm").Activate
Sheets("Roll-up Data").Select
Range("B8:S18").Select
Selection.Copy
Windows("Weekly Trend One_Page Report template.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B19").Select
Windows("Weekly Trend Data Template.xlsm").Activate
Sheets("Investments Data").Select
Range("B94:S103").Select
Selection.Copy
Windows("Weekly Trend One_Page Report template.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'-----------------
'Copy Dates
'-----------------
Sheets("Roll-up Data").Select
Range("S3").Select
Windows("Weekly Trend Data Template.xlsm").Activate
Sheets("Launch Page").Select
Range("F8").Select
Selection.Copy
Windows("Weekly Trend One_Page Report template.xls").Activate
Sheets("Roll-up Data").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("Weekly Trend Data Template.xlsm").Activate
Sheets("Launch Page").Select
Range("B7").Select
End Sub
Thanks for any help you can provide.
I just upgraded from excel 2000 to 2007 at work. Many of my macros display this when I run them - "not enough resources to display completely" All macros worked fine before upgrade. Example of a macro experiencing problems:
Sub one_page()
Workbooks.Open Filename:= _
"M:\pma\WEEKLY\WKTRENDS\Weekly Trend New\Weekly Trend One_Page Report template.xls"
Range("B7").Select
Windows("Weekly Trend Data Template.xlsm").Activate
Sheets("Roll-up Data").Select
Range("B8:S18").Select
Selection.Copy
Windows("Weekly Trend One_Page Report template.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B19").Select
Windows("Weekly Trend Data Template.xlsm").Activate
Sheets("Investments Data").Select
Range("B94:S103").Select
Selection.Copy
Windows("Weekly Trend One_Page Report template.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'-----------------
'Copy Dates
'-----------------
Sheets("Roll-up Data").Select
Range("S3").Select
Windows("Weekly Trend Data Template.xlsm").Activate
Sheets("Launch Page").Select
Range("F8").Select
Selection.Copy
Windows("Weekly Trend One_Page Report template.xls").Activate
Sheets("Roll-up Data").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("Weekly Trend Data Template.xlsm").Activate
Sheets("Launch Page").Select
Range("B7").Select
End Sub
Thanks for any help you can provide.