Problem with Named Cells
Hello,
I've a problem that I cannot change/move a named cell to another location.
To copy information to a specific cell in the worksheet I named it (LastCell).
When I've copied the information, I want to name the next cell below to the
same name but it does not work. Here is how it looks:
Sub DocFinalize()
CurrDoc = Worksheets("Docs").Range("DocType")
Worksheets("Docs").Range("DocLine").Copy
With Worksheets("Docs").Range("LastCell")
.Select
.PasteSpecial (xlValues) ' (It copies several cell values from the
ranged row"DocLine")
.PasteSpecial (xlFormats)
End With
Application.CutCopyMode = False
Worksheets("Docs").Range("LastCell").Select
ActiveCell.Offset(1, 0).Names Add = "LastCell"
I can navigate properly to the new cell but it doesn't matter how I do it,
I can never name the cell to LastCell like I do when selecting
Insert/Name/Define/....
Strangely, I can name the cell with the Value in the previous cell but never
the Name
Looking forward to your (simple) solutions!?!?
Best regards
Mats
|