naming cells for their content

[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]

Pls see other post and do not post in more than one group.

 

[Tom Ogilvy]

Sub NameCells()
Dim rng as Ragne, cell as range
Set rng = Range("A1:B100")
for each cell in rng
cell.Name = cell.value
Next
rng.clearcontents
End Sub

Test it on a copy of your workbook.

 

[Tom Ogilvy]

Just a heads up, but
note that the approach provided by Don,

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

will clear formatting in the range as well. If you just want to clear the
value/formula, then use ClearContents in place of Clear.