Macro Copy Active Cell to Range Name, loop

Assume the activecell is Cell B10 and it contains the string "ABCD". You
want to Name B13 "ABCD"

ActiveCell.Offset(3,0).Name = ActiveCell.Value




--
Reards,
Tom Ogilvy

<zigstick@gmail.com> wrote in message
news:1114454676.040311.108050@o13g2000cwo.googlegroups.com...
> Thanks so much Ed.
>
> One more question. Say I wanted to
> 1. copy the data from the active cell
> 2. select from the active cell to 3 rows down
> 3. move to the name box and paste the copied data, thus naming the
> range what was in the initial active.cell
>
> Thanks!!!!!
>

Thanks, but actually trying to capture the entire range of say, Active
cell of b10 to B13 (B10:B13), then move to the name field and type only
the data copied from the initial active cell. This would create a
named range, with the name being whatever is in the first cell ... in
this case, b10.

Thanks!!

ActiveCell.Resize(3,1).name = ActiveCell.Value

--
Regards,
Tom Ogilvy


<zigstick@gmail.com> wrote in message
news:1114458564.385955.83720@l41g2000cwc.googlegroups.com...
> Thanks, but actually trying to capture the entire range of say, Active
> cell of b10 to B13 (B10:B13), then move to the name field and type only
> the data copied from the initial active cell. This would create a
> named range, with the name being whatever is in the first cell ... in
> this case, b10.
>
> Thanks!!
>