Add a Named range in a Macro

Sub RangeString()

Dim xl As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim rg1 As Excel.Range
Dim rg2 As Excel.Range
Dim n As Integer
Dim rg As Excel.Range
Dim sRange As String

Set xl = Application
Set wb = xl.ThisWorkbook
Set ws = wb.Sheets(1)


Set rg = ws.Range(ws.Cells(5, 2), ws.Cells(11, 3))
sRange = rg.Address(RowAbsolute:=False, ColumnAbsolute:=False)
rg.Name = "DueDays"

End Sub