Delete all entries in selection except activecell

[Elaine]

How can I delete all entries from a selection except for the currently active
cell?

In other words, if I have selected the range (A3:a12), I would like to
retain the value of A3 but delete the contents of all other cells.

Thanks for your help.

 

[Naomi]

Best bet is something like:

dim active_val as string

active_val = activecell.value

with selection
..clearcontents
end with

activecell.value = active_val

 

[Elaine]

Thank you very much for your help.

Best bet is something like:

dim active_val as string

active_val = activecell.value

with selection
.clearcontents
end with

activecell.value = active_val

 

[Tom Ogilvy]

Safer/more robust would be to user the formula property which will preserve
either formula or value

dim active_val as string

active_val = activecell.Formula

with selection
..clearcontents
end with

activecell.Formula = active_val