Dynamic named ranges

Hi Nicole

The following procedure dynamically assesses the extent of an excel table, assigns that range to a range object and then names that range.
Every time the code is run, the range updates dynamically

Sub DynamicRanges()





    Dim rngDynRng As Range

    

    

    Set rngDynRng = Sheets("Data Validations").Range(Cells(3, 1), _

        Cells(Range("A3").CurrentRegion.Rows.Count, Range("A3").CurrentRegion.Columns.Count))

        

    rngDynRng.Name = "MyTable"

    

    



End Sub