This function returns true if range provided as argument is truly empty
(no spaces, formulas, etc).


Function range_empty(rng As Range) As Boolean
Dim cell As Range
range_empty = True
For Each cell In rng
If cell.Formula < "" Then
range_empty = False
Exit For
End If
Next
End Function