Office Object Model: Excel - Application / set operations

union

option explicit

public sub main()

    dim range_1      as range
    dim range_2      as range

    dim range_result as range

    set range_1 = activeSheet.range("d3:f9")
    set range_2 = activeSheet.range("b6:h7")

    set range_result = union (range_1, range_2)

    range_result.interior.color = RGB(255, 127 , 30)

    activeWorkbook.saved = true

end sub

intersect

option explicit

public sub main()

    dim range_1      as range
    dim range_2      as range

    dim range_result as range

    set range_1      = activeSheet.range("d3:f9")
    set range_2      = activeSheet.range("b6:h7")
    set range_result = intersect (range_1, range_2)

    range_1.value="Range 1"
    range_2.value="Range 2"

    range_result.value="Intersection"

    activeWorkbook.saved = true

end sub

TODO