my code below fails at the line rTotal.Select. I don't understand why i
won't let me select that code when I run it. However, it works fine i
i step into the function through the debugger. anyone have som
suggestsion?

Set rBally = Range("D10:O12")
Set rBio = Range("D20:O22")
Set rCP = Range("D30:O32")
Set rFS = Range("D40:O42")
Set rLabrada = Range("D50:O52")
Set rMT = Range("D60:O62")
Set rPE = Range("D70:O72")
Set rRP = Range("D80:O82")
Set rSFU = Range("D90:O92")
Set rSFA = Range("D100:O102")
Set rUni = Range("D110:O112")

Workbooks("Bars 2004.xls").Worksheets("Total Bars MASTER").Visibl
= xlSheetVisible
Workbooks.Open ("C:\Documents and Settings\Adam\Desktop\Monthl
Sales\Master.xls")


Workbooks("Bars 2004.xls").Worksheets("Total Bar
MASTER").Activate
Set rTotal = Union(rBally, rBio, rCP, rFS, rLabrada, rMT, rPE, rRP
rSFU, rSFA, rUni)
rTotal.Select
Call CopyPast

--
Message posted from http://www.ExcelForum.com