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?

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

--
Don Guillett
SalesAid Software

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

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.

--
Regards,
Tom Ogilvy

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

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.

--
Regards,
Tom Ogilvy