Hi..

Oops..
I may have led you astray previously..

This will increase the range by 1 row..

With Worksheets("Lkups")
        ActiveWorkbook.Names.Add Name:="ProLst", RefersToR1C1:= _
        .Range("ProLst", .Range("ProLst").Offset(1, 0))
           
End With