named ranges do not appear in the xls

Hi,
I am creating named ranges programatically in the dynamically created .xls:

Public Sub doFinalSheetFormatting(dontshowup As Boolean)
        Range("B13:y13").Select
        If Range("B14").Value <> "" Then Range(Selection, Selection.End(xlDown)).Select
        With Selection
            .HorizontalAlignment = xlRight
            .Interior.ColorIndex = 2
        End With
        Range("B12:Y12").Select
        Range(Selection, Selection.End(xlDown)).Select
        ActiveSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes).Name = ActiveSheet.Name & "List"
        Columns("K:Y").NumberFormat = "0.000%"
        Range("a1").Select
End Sub

in a different sub this file get's saved as:
    newWB.SaveAs filename:=newFileDir & newFileName

When I open the file in 2003 the above created named range does not exist. When I open THE SAME FILE in 2007 i see the named range

Need to make it work in 2003
Please advise
THank you in advanceStart Free Trial