I had code which worked great under Excel 2003 but not working under Excel
2007.

I get the following error Method 'Union" of object '_Global' failed with
the code below

If Union(Target, Range("B5:B6")).Address = Range("B5:B6").Address Then
SortModule.PTOSort