'-----------------------------------------------------------------
Function AntiUnion(SetRange As Range, UsedRange As Range) As Range
'-----------------------------------------------------------------
Dim saveSet
saveSet = SetRange.Formula
SetRange.ClearContents
UsedRange = 0
Set AntiUnion = SetRange.SpecialCells(xlCellTypeBlanks)
SetRange = saveSet
End Function

--
HTH

Bob Phillips

"londono001" wrote in message
...
Hi all,
Does anyone knows where I can find a function that would returns me the
difference of two range. VBA provides with Union and intersection but no
Difference.
Help is much appreciated here
Thanks