Windows XP Office 2003 Run-time error '9'

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
 
N

Norman Jones

Hi Duhaas,

Which line of code is highlighted when
your error message is encountered
 
D

DUHAAS

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Error using offset 2
Help again!!! 1
Windows error 4
Help merging two VBA codes 2
Something in this is causing a crash 2
lenghty code 4
Macro/coyy & Paste from a new data a fix infp 1
Code not working as expected 2

Top