Function bCovers(obj As Object, rng As Range) As Boolean
With obj
If .Left <= rng.Left Then
If .Top <= rng.Top Then
If .Left + .Width = rng.Left + rng.Width Then
bCovers = .Top + .Height = rng.Top + rng.Height
End If
End If
End If
End With
End Function

obj as Object to cater for any drawingobject type, eg simply Selection, or
if a Shape, but change to As Shape if you prefer.

Regards,
Peter T


"Gary''s Student" wrote in message
...
I need a simple boolean function that, give the name of a shape and the
address of a single cell, will return TRUE if the cell is fully or
partially
covered by the shape. Otherwise FALSE.

Thanks in advance
--
Gary''s Student - gsnu200764