Changing Named Cells

[JenkinsM82]

Part of a VBA script I use checks the value of a cell and then deletes the name of the cell if it's False. Here is what I have that works great:

For Each cell In Range("Selected")
     If cell.Value = "False" Then
     cell.Name.Delete

Instead of deleting that name, how can I change the name? Ideally, I'd love to name the cell to the value of the cell to the right.

Any help would be appreciated!!

 

[Fluff]

Try

cell.Name.Delete
cell.Name = cell.Offset(, 1).Value

 

[JenkinsM82]

That gives me error 1004 when I try to run it.

 

[Fluff]

What is the value in the cell to the right?

 

[JenkinsM82]

I think that fixed my issue. I had a * in the value of the next field and it wasn't happy about that.

Thanks for your help!

 

[Fluff]

You're welcome