VBA to create multiple named ranges

[pujo]

Hello all.

In Sheet1 Column A, Cell 1-72, I have a list of names.
In Sheet1 Column B, Cell 1-72, I have a list of addresses.
Example: A1: RawData B1: =Report!$F$10:$F$17,Report!$F$19:$F$20,Report!$H$10:$H$17,Report!$H$19:$H$20,Report!$K$10:$K$12,Report!$I$15:$N$15

Is there a way I can VBA to create all the named ranges from the lists in Sheet1?

Thanks!

 

[Trebor76]

Hi pujo,

Try this while on the sheet with the data in columns A and B:

Option Explicit
Sub Macro1()

    Dim rngCell As Range

    Application.ScreenUpdating = False
    
    For Each rngCell In Range("A1:A72")
        If Len(rngCell) > 0 And Len(rngCell.Offset(0, 1)) > 0 Then
            Range(rngCell.Offset(0, 1)).Name = rngCell.Value
        End If
    Next rngCell
    
    Application.ScreenUpdating = True

End Sub

Regards,

Robert