Test run started : 13/01/2009 14:32:16
----------------------------------------------------------------
TestUnion
 TEST START : TestUnion
  ITEM Assertion OK : test1Application.Range('A2:D10'), Range('C4:E6')
  ITEM Assertion OK : test2Application.Range('A2:D5,a3:d4'), Range('A4:G10')
  ITEM Assertion OK : test3Application.Range('A4:G10,A1:B6'), Range('A2:D5,A3:D4')
  ITEM Assertion OK : test4Application.Range('A5:D10'), Range('B5:E10')
Test Results
============

Tests passed: 4
Tests failed: 0

END 'TestUnion
 TEST OK : TestUnion
Test run finished : 13/01/2009 14:32:16