Windows XP Office 2003 Run-time error '9'

  • Thread starter Thread starter DUHAAS
  • Start date Start date
D

DUHAAS

I have the following macro that runs fine under windows 2000 and
office 2003, but doesnt work under windows xp and office 2003, anyone
have any idea:

Sub LoadAll()
'

' **** Fund 410 Start

'Open Extended Report Workbook
Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\extendrpt.xls"
'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\extendrpt.xls"
'Clear Out Old Values
Range("F27,g27,h27").ClearContents
Range("f27").Select

'Navigate Back To Source Workbook And Copy Current Daily Factor
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Copy

'Paste Value To Extended Report Workbook
Windows("extendrpt.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("g27").Select

'Navigate Back To Source Workbook And Copy Current %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 2).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To Extended Report Workbook
Windows("extendrpt.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("h27").Select

'Navigate Back To Source Workbook And Copy Effective %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 6).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To Extended Report Workbook
Windows("extendrpt.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close

'Open Fund 412 Workbook
Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\412\412-2008.xls"
'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\412\412-2008.xls"
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select


'Open MMMF Daily Rate Sheet Workbook
Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\MMMF Daily Rate Sheet.xls"
'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\MMMF Daily Rate Sheet.xls"
'Clear Out Old Values
Range("e15,f15,g15,h15").ClearContents
Range("e15").Select

'Navigate Back To Source Workbook And Copy Current Daily Factor
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
Windows("MMMF Daily Rate Sheet.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("f15").Select


'Navigate Back To Source Workbook And Copy 1-day yield
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 13).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
Windows("MMMF Daily Rate Sheet.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("g15").Select

'Navigate Back To Source Workbook And Copy Current 7-day %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 2).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
Windows("MMMF Daily Rate Sheet.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("h15").Select

'Navigate Back To Source Workbook And Copy Effective 7-day %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 6).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To MMMF Daily Rate Sheet Workbook
Windows("MMMF Daily Rate Sheet.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close

'Open Y Class Workbook
Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS\Dailyrpt"
'Workbooks.Open Filename:="\\Tr-mke-file01\Department\Marshall
Investor Services\MFISDATA\FUNDS_TEST\Dailyrpt"
'Clear Out Old Values
Range("e25,g25,h25").ClearContents
Range("e25").Select

'Navigate Back To Source Workbook And Copy Current Daily Factor
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Copy

'Paste Value To Y-class Workbook
Windows("Dailyrpt.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("g25").Select

'Navigate Back To Source Workbook And Copy Current 7-day %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 2).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To Y-Class Workbook
Windows("Dailyrpt").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("h25").Select

'Navigate Back To Source Workbook And Copy Effective 7-day %
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
Selection.Offset(0, 6).Select
Application.CutCopyMode = False
Selection.Copy

'Paste Value To Y-Class Workbook
Windows("Dailyrpt").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close

'Close And Save 410 Fund Workbook
Windows("410-2008.xls").Activate
Range("C10000").Select
Selection.End(xlUp).Select
ActiveWorkbook.Save
ActiveWindow.Close

'
End Sub
 
Hi Duhaas,

Which line of code is highlighted when
your error message is encountered
 
Hi Duhaas,

Which line of code is highlighted when
your error message is encountered
Click to expand...


'Paste Value To Y-class Workbook
Windows("Dailyrpt.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("g25").Select

The second line is highlighted
 
Back
Top