Can I adjust the column width of an excel spreadsheet I export listview data into?

Private Sub SaveToExcelONEDAY_Click()
Dim ExcelObj As Object
    Dim ExcelBook As Object
    Dim ExcelSheet As Object
    Dim i As Integer
 
    Set ExcelObj = CreateObject("Excel.Application")
    Set ExcelBook = ExcelObj.WorkBooks.Add
    Set ExcelSheet = ExcelBook.WorkSheets(1)
 
    With ExcelSheet
        For i = 1 To ResultsView.ColumnHeaders.Count
            .cells(1, i) = ResultsView.ColumnHeaders(i).Text
        Next i
        For i = 1 To ResultsView.ListItems.Count
            .cells(i + 1, 1) = ResultsView.ListItems(i).Text
            .cells(i + 1, 2) = ResultsView.ListItems(i).SubItems(1)
            .cells(i + 1, 3) = ResultsView.ListItems(i).SubItems(2)
            .cells(i + 1, 4) = ResultsView.ListItems(i).SubItems(3)
           
            .cells(i + 1, 5) = ResultsView.ListItems(i).SubItems(4)
            .cells(i + 1, 6) = ResultsView.ListItems(i).SubItems(5)
            .cells(i + 1, 7) = ResultsView.ListItems(i).SubItems(6)
 
        Next
    End With
   
    ExcelObj.Visible = True
End Sub