change cell name to text nmae

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Elfego Baca - 24 Mar 2007 21:09 GMT

I have a worksheet that is 2 x100 in size, that is columns A and B, Rows
1 through 100. Each cell is filled with a single "word", in this case
the sheet looks like the following:

A B
1 data1 data2
2 data3 data4
3 data5 data5
4 data6 data7
5 data8 data9
6 data10 data11
7 data12 data13
8 data14 data15
etc,etc,etc....

I would like to name the cells the same as their content. In other words
the cell that contains the word data3 would be named data3. Once this is
done I want to delete the contents of all of the cells but keep the
names that I have created for each cell. Is this possible without having
to do each cell individually. Can some macro be used to perform this easily?

Reply to this Message

Don Guillett - 24 Mar 2007 21:44 GMT

I generally don't go along with naming too many cells cuz it can become
unwieldly but here.

Sub nameeachcell()
For Each c In range("a2:b100")'Selection
c.Name = c
c.Clear
Next c
End Sub

Signature

Don Guillett
SalesAid Software
dguillett1@austin.rr.com

>I have a worksheet that is 2 x100 in size, that is columns A and B, Rows 1
>through 100. Each cell is filled with a single "word", in this case the
[quoted text clipped - 16 lines]
> that I have created for each cell. Is this possible without having to do
> each cell individually. Can some macro be used to perform this easily?

Reply to this Message