Naming cells with range as input

[praveen_ce]

hi ppl ,

i try to use "name a range" very often

now my problem is

i have 10 ppl name and 4 branches they belong

i want to save those 14 names in name manager

i use this macro


'sub namemanager

ActiveCell.Select

acticecell.Name = ActiveCell.Value

ActiveCell.Select

end sub '


say if i want to do this for selected range(say"a1:b4") at once

how to do it


thnks in advance

 

[sdsurzh]

Hi Praveen,


Try this.


sub namemanager

ActiveCell.Select

Range("A1:B4").Value = ActiveCell.Value

ActiveCell.Select

end sub


Thanks,

Suresh Kumar S

 

[praveen_ce]

thnks suresh

i think it wont help

wat i need is something like u 1st select the range then when you run it

it should change

sytax should be something like this


'activerange.select'

'for each cell in activerange'

'activecell.name=activecell.value'

'next i'

 

[sdsurzh]

Hi Praveen,


Then any Macro Connoisseur have to log-in.

Thanks for you feedback.


Thanks,

Suresh Kumar S

 

[praveen_ce]

anyways thanks suresh

for showing interest

 

[NARAYANK991]

Hi Praveen ,


I am not fully clear on your requirement , but are you looking for this ?

[pre]

For Each cel In Selection
cel.Name = cel.text
Next

[/pre]
Select the range which has the names before you run this macro.


Narayan

 

[praveen_ce]

thnks narayan

it worked

thank you very much