View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
DUHAAS DUHAAS is offline
external usenet poster
 
Posts: 2
Default Windows XP Office 2003 Run-time error '9'

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