hi.
I see that your code is for a specific workbook and specific worksheet. just
looking at the code you posted, i suspect this may be your problem.
the scrip out of range reeor message pops up usually when excel can't find
something. Edit your workbook name and worksheet name and see if that solves
your problem. if not, post back with more detail.

Regards
FSt1

"David" wrote:

This is driving me NUTS! This code works just fine in other workbooks, but
something is wrong here. I am getting the error on the last line of code.
Same error when trying to activate the wbkSum workbook too.
Here is the code:

Dim wbkSum As Workbook
Dim wbkData As Workbook
Dim iOffice As Integer

Set wbkSum = Workbooks("My DMR Summary May 2007.xls")
Set wbkData = ActiveWorkbook

Windows("wbkData").Activate