change cell name to text nmae

[Elfego Baca]

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?

 

[Don Guillett]

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