Combine two ranges

[tiredofit]

This code combines two ranges.

It works if the ranges are on the same sheet but fails if they're not.

Dim rng1 As Range
  
    Set rng1 = Sheet1.Range("A1:A3")
  
    Dim rng2 As Range

    Set rng2 = Sheet2.Range("A1:A3")

    Dim rng3 As Range

    Set rng3 = Union(rng1, rng2)

    Dim rng3element As Range

    For Each rng3element In rng3

        Debug.Print rng3element.Value

    Next rng3element

How can I amend it so it would work?

Thanks

 

[fadee2]

Thanks...

 

[tiredofit]

without seeing your full code it was just a guess - but good you have it resolved.

Dave

Thanks, code as requested by another reader.