CODE - write to named ranges (.NET & XL)

[staticbob]

Guys,

I am calling Excel from a .NET application I am writing. The VBA code should work in both environments.

I have a UserControl in .NET that contains lots of textboxes and comboboxes.

For each tbox or cbox in .NET, I have a named range in Excel. I am trying to take the text from my .NET controls and write to the named ranges. Can anybody see any problems with this code ???

Thanks in advance !
Bob

        Dim xl As Excel.Application
        xl = New Excel.Application
        Dim wkbk As Excel.Workbook
        Dim wkst As Excel.Worksheet
        xl.DisplayAlerts = False
        xl.Visible = False

        wkbk = xl.Workbooks.Open("C:\PWBV3 Forms\PWBV3_RFI.xls") 'usetemplatepath & doctype
        wkst = wkbk.Sheets(1)

        For Each ctl As Control In Ucont 'this is my usercontrol
            For Each nm As Excel.Name In wkbk.Names
                If StrComp(nm.Name, ctl.Name, CompareMethod.Text) = 0 Then
                    If TypeOf ctl Is TextBox Then
                        nm.RefersToRange.Value = CType(ctl, TextBox).Text
                    ElseIf TypeOf ctl Is ComboBox Then
                        nm.RefersToRange.Value = CType(ctl, ComboBox).Text
                    End If
                End If
            Next