Взаимодействие с Excel - Visual Basic .NET

 Private Sub CmdExport_Click(sender As Object, e As EventArgs) Handles cmdExport.Click
        Dim ExcelApp As Microsoft.Office.Interop.Excel.Application
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim ExcelWB As Microsoft.Office.Interop.Excel.Workbook
        Dim ExcelWS As Microsoft.Office.Interop.Excel.Worksheet
        ExcelApp = New Microsoft.Office.Interop.Excel.Application
        ExcelWB = ExcelApp.Application.Workbooks.Add(misValue)
        ExcelWS = ExcelWB.Application.Sheets(1)
        Dim uRange As Range     '[B] Здесь получаю ошибку[/B]
        ExcelWS.uRange("A1: B10")
        ExcelWS.UdRange.Columns.AutoFit()
        Dim i, j As Integer
        For i = 0 To Me.DataGridView1.RowCount - 2
            For j = 0 To Me.DataGridView1.ColumnCount - 1
                ExcelWS.Cells(i + 2, j + 1).value = DataGridView1(j, i).Value
            Next
        Next
        ExcelApp.Visible = True
        ExcelWS.SaveAs("d:\Reporter.xlsx")
        ExcelWB.Close()
        ExcelApp.Quit()
        MsgBox("Сохранено")
    End Sub