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

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

thanks
--
Gary''s Student


"Duke Carey" wrote:

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

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" wrote in message
...
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

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


"Bob Phillips" wrote:

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" wrote in message
...
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

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

"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

Some of still use 2000 <vbg

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"John Lyons" wrote in message
...
or just use the Find Dependents tool on the Audit toolbar!

"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

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" wrote:

Some of still use 2000 <vbg

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"John Lyons" wrote in message
...
or just use the Find Dependents tool on the Audit toolbar!

"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

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" wrote in message
...
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" wrote:

Some of still use 2000 <vbg

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"John Lyons" wrote in message
...
or just use the Find Dependents tool on the Audit toolbar!

"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