1Test run started : 13/01/2009 14:32:16
2----------------------------------------------------------------
3TestUnion
4 TEST START : TestUnion
5  ITEM Assertion OK : test1Application.Range('A2:D10'), Range('C4:E6')
6  ITEM Assertion OK : test2Application.Range('A2:D5,a3:d4'), Range('A4:G10')
7  ITEM Assertion OK : test3Application.Range('A4:G10,A1:B6'), Range('A2:D5,A3:D4')
8  ITEM Assertion OK : test4Application.Range('A5:D10'), Range('B5:E10')
9Test Results
10============
11
12Tests passed: 4
13Tests failed: 0
14
15END 'TestUnion
16 TEST OK : TestUnion
17Test run finished : 13/01/2009 14:32:16
18