RE: free cell

[Duke Carey]

check the cell's Dependent property

"Gary''s Student" wrote:

> How can I tell if a cell is free (available)?
> Free would mean empty and not referred to by another cell on the worksheet.
>
> --
> Gary''s Student

[Gary''s Student]

thanks
--
Gary''s Student

[Bob Phillips]

Dim fEmpty
Dim tmp As Range
fEmpty = IsEmpty(ActiveCell)
If fEmpty Then
On Error Resume Next
Set tmp = ActiveCell.DirectPrecedents
On Error GoTo 0
If Not tmp Is Nothing Then
fEmpty = False
End If
On Error Resume Next
Set tmp = ActiveCell.DirectDependents
On Error GoTo 0
If Not tmp Is Nothing Then
fEmpty = False
End If
End If

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Gary''s Student" <GarysS...@discussions.microsoft.com> wrote in message
news:BC839D72-C567-4216...@microsoft.com...

[Gary''s Student]

Thank you Bob, for both the answer and the general approach of using On
Error. I will use this in the future instead of my (Homer Simpson) usual
practice of banging my head into a wall until a 1004 error pops up.
--
Gary's Student

[John Lyons]

or just use the Find Dependents tool on the Audit toolbar!

[Bob Phillips]

Some of still use 2000 <vbg>

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"John Lyons" <John...@discussions.microsoft.com> wrote in message
news:41FFD689-3514-4CA4...@microsoft.com...

[Duke Carey]

Trace Dependents/Precedents icons are available in 2000 (and '97, I think)
when you customize the toolbar & look in the Tools category<g>

[Bob Phillips]

You are right, I had forgotten since I never use them, and was thinking of
the much stronger Evaluate facility in the XP Auditing tool <g>

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Duke Carey" <Duke...@discussions.microsoft.com> wrote in message
news:0B64281B-E6D8-427A...@microsoft.com...