tu come lo interpreti?

codice:
    Option Strict On
    Option Explicit On 

...

    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Dim xlWS As Excel.Worksheet

...

    Sub TestDataSet()
        Me.Cursor = Cursors.WaitCursor

        'instanzio l'oggetto
        xlApp = New Excel.Application()
        xlApp.Visible = False
        xlApp.DisplayAlerts = False

        'creo il WorkBook
        xlWB = xlApp.Workbooks.Add

        'creo il WorkSheet
        xlWS = CType(xlWB.ActiveSheet, Excel.Worksheet)

        'riempio il dataset con i valori della tabella
        SqlDataAdapter1.Fill(Me.DataSet11)

        'scrivo le celle con i valori del dataset
        Dim riga As Integer = 0
        For riga = 0 To Me.DataSet11.Articoli.Rows.Count - 1
            xlWS.Cells(riga + 1, 1) = Me.DataSet11.Articoli(riga).CodArt
            xlWS.Cells(riga + 1, 2) = Me.DataSet11.Articoli(riga).DescArt
            xlWS.Cells(riga + 1, 3) = Me.DataSet11.Articoli(riga).DataA
            xlWS.Cells(riga + 1, 4) = Me.DataSet11.Articoli(riga).Prezzo
        Next riga

        'non funziona
        'Dim x, y As String
        'x = "A1" : y = "D" & riga + 1
        'xlWS.Range(x, y).Font.Bold = True

        'non funziona
        'xlWS.Range("A1", "D" & riga + 1).Font.Bold = True

        'funziona
        xlWS.Range("A1", "D4").Font.Bold = True

        xlWB.Close(True, "c:\test1.xls")
        xlWS = Nothing
        xlWB = Nothing
        xlApp.Quit()
        xlApp = Nothing

        'Chiamo la Garbage Collection
        GC.Collect()
        Me.Cursor = Cursors.Default
        Beep()
    End Sub
Considera che ho anche provato il codice che mi hai postato

Mah!?!?