Note to OP...

Be carefull with mixing qualified references and global references
to cells.

Set myrange = Worksheets("Chart").Range(Cells(startx, column),
Cells(weekx, column))

will pickup the GLOBAL cells (activesheet) NOT the cells of
Worksheets("chart")


use:

with worksheets("chart")
union( .cells(55,2).resize(,3),.cells(55,9))
end with



--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Ron de Bruin wrote :

Hi jopu

Try this

Union(Range(Cells(55, 2), Cells(55, 4)), Cells(55, 9)).Select