assign values to a list of named ranges

[davido1000]

I have an excel application that has a couple of hundred defined names that each hold a single piece of data. All these pieces of data come from values entered into userforms.

for examlple
Range: sheet1!A1
Named Range: "data1"
Value: True

Some values are strings, some are numbers, etc.

I would like to use the application with several sets of data and store the data in another workbook that could be loaded.

Here is what I need and I haven't been able to get work in VBA.

Set up 3 colums with the following information in each column.

worksheet, range name, value
sheet1 , data1, True
sheet1 , data2, False
sheet1 , data3, 7
sheet2 , data4, 1,200


I need a routine that will loop through the list and assign the value to the correct named range.

Any help is appreciated.

Thanks.

david

 

[SIXTH SENSE]

hi!
Try this!

   for i=1 to range("A65536").end(xlup).row
        set sht=worksheets(range("A"&i))
        sht.range(range("b"&i))=range("c"&i).value 
   next i