View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Peter T Peter T is offline
external usenet poster
 
Posts: 5,600
Default Method 'Range' of object '_Worsheet' failed in Union of 3 Ranges

Are all ranges to be unioned refer to cells on the same sheet?

Is that sheet the same sheet of your Worksheet change event?

If you answer No to either of the above your code will fail (as written)

I don't understand what you mean by
"these ranges don't have Sheet2! in them"

Named ranges can be at workbook level or Worksheet level, however both types
will refer to cells on a particular sheet

Following has nothing to do with the problem but better to change the
following for when you do get things working

Union(Range("Range1"), Range("Range2"), Range("Range3")).Name =
"ComboRange"
Set myRange = Me.Range("ComboRange")


myRange = Union(Range("Range1"), Range("Range2"), Range("Range3"))
myRange.Name = "ComboRange"

Regards,
Peter T

wrote in message
...
Hi Programmers--I think I'm close, but close doesn't count in
programming. Why does this error occur during the worksheet change
event? I must union 3 ranges. Here is the code:

Dim myRange As Range
Dim myIntersect As Range
Dim myCell As Range

Union(Range("Range1"), Range("Range2"), Range("Range3")).Name =
"ComboRange"
Set myRange = Me.Range("ComboRange")
...

Here are the named ranges:

Range1=!$AV$13:!$EZ$13,!$AV$15:!$EZ$15,!$AV$17:!$E Z$17,!$AV$19:!$EZ
$19,!$AV$21:!$EZ$21,!$AV$23:!$EZ$23,!$AV$25:!$EZ$2 5,!$AV$27:!$EZ$27,!
$AV$29:!$EZ$29,!$AV$31:!$EZ$31

Range2=!$AV$31:!$EZ$31,!$AV$33:!$EZ$33,!$AV$35:!$E Z$35,!$AV$37:!$EZ
$37,!$AV$39:!$EZ$39,!$AV$41:!$EZ$41,!$AV$43:!$EZ$4 3,!$AV$45:!$EZ$45,!
$AV$47:!$EZ$47,!$AV$49:!$EZ$49

Range3=!$AV$51:!$EZ$51,!$AV$53:!$EZ$53,!$AV$55:!$E Z$55,!$AV$57:!$EZ
$57,!$AV$59:!$EZ$59,!$AV$61:!$EZ$61,!$AV$63:!$EZ$6 3,!$AV$65:!$EZ$65,!
$AV$67:!$EZ$67,!$AV$69:!$EZ$69

Note: these ranges don't have Sheet2! in them (I want them to be
global--used on every sheet).

Thanks!