Add Names

  • Thread starter Thread starter Jamal
  • Start date Start date
J

Jamal

I have a long and wide spreadsheet. I need to add names to
each cell in column 93. The names should be the text in
the relevant row in colum 2. The columns in the middle are
full of other information.

I tried the following code. The error message comes up
as "That name is not Valid".

For Each MyCell In MyRange
MyCell.Offset(0, 92).Name = MyCell.Text
Next MyCell


Any help is appriciated. Thanks in advance.
 
try
For Each MyCell In MyRange
MyCell.Offset(0, 92).Name = MyCell.Text
Next MyCell
Click to expand...

For Each MyCell In MyRange
MyCell.Offset(0, 92).value = MyCell
Next MyCell
 
Jamal,

Try something like the following:

Dim MyCell As Range
For Each MyCell In Application.Intersect(ActiveSheet.UsedRange, _
ActiveSheet.Columns(93))
MyCell.Name = MyCell.EntireRow.Cells(1, "B").Text
Next MyCell



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
Back
Top