merge ranges

[Guest]

Hi,

i have a function as follows

Function (a, inputX as Range, inputY as Range)

I need to sort both ranges in asc order by inputX.
I am thinking of using CurrentRegion.Sort command. To use this I need to
merge these ranges into one range so that my inputY range would get sorted .
How would i do this?

Thanks a lot,

 

[Guest]

The union function is used ot merge ranges. Try something like this...

Function (a, inputX as Range, inputY as Range)
dim rngMerged as range

set rngMerged = Union(inputX, inputY)