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