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!
|