create multiple named ranges with multiple selection

Question

i just get one names range with this code, what\'s my fault?

any help, my language is so bad, sorry!

Sub Nama()

Worksheets("DATA").Activate

Dim