[RESOLVED] Programmatically Centered Text In Excel Spreadsheet

[Hack]

I'm programmtically creating a brand new excel spreadsheet, in which I'm dumping the contents of a 5 column ListView control.

When creating Excel Templates, I can pre-center whatever cells I need to, but this spreadsheet is being created on the fly and I need to know how to center specific cells while I'm creating it.

The ListView will go into Columns A, B, C, D, and E and I need Column A, C and & D to be centered. How would I do that? Here is my Sub

Private Sub DisplayReport(pstrLocation As String, pRecordSet As ADODB.Recordset, _
            Optional pblnSendToFile As Boolean, Optional pblnSendToPrinter As Boolean)
            
Dim lvwItem As ListItem
Dim objExcel As Excel.Application
Dim bkWorkBook As Workbook
Dim shWorkSheet As Worksheet
Dim i As Integer
Dim j As Integer
lvwAR.ListItems.Clear
Do While Not pRecordSet.EOF
    Set lvwItem = lvwAR.ListItems.Add(, , pRecordSet.Fields.Item("prov_cd").Value)
    lvwItem.SubItems(1) = pRecordSet.Fields.Item("prov_nm").Value
    lvwItem.SubItems(2) = pRecordSet.Fields.Item("prov_fy_end_dt").Value
    lvwItem.SubItems(3) = pRecordSet.Fields.Item("amend_cd").Value
    lvwItem.SubItems(4) = pRecordSet.Fields.Item("amend_cat_cd").Value
    pRecordSet.MoveNext
   Loop
 
If pstrLocation = "screen" Then
   frmShowAllAR.Height = 7935
   frmShowAllAR.Top = 690
Else
    Set objExcel = New Excel.Application
    Set bkWorkBook = objExcel.Workbooks.Add
    Set shWorkSheet = bkWorkBook.ActiveSheet
    With lvwAR
        For i = 1 To .ColumnHeaders.Count
            shWorkSheet.Cells(1, Chr(64 + i)) = .ColumnHeaders(i)
        Next
'=====> here is where Im dumping the listview to excel
'=====>i need columns A, C & D centered somewhere somehow in this section
        For i = 1 To .ListItems.Count
            shWorkSheet.Cells(i + 2, "A") = .ListItems(i).Text
            For j = 2 To .ColumnHeaders.Count
                shWorkSheet.Cells(i + 2, Chr(64 + j)) = .ListItems(i).SubItems(j - 1)
            Next
        Next
        shWorkSheet.Columns("A:BZ").AutoFit
        If pblnSendToFile = True Then
           'if it already exists kill the sucker
           If Dir$(App.Path & "\AllAppealsReopens.xls") <> vbNullString Then
              Kill App.Path & "\AllAppealsReopens.xls"
           End If
             bkWorkBook.SaveAs FileName:=App.Path & "AllAppealsReopens.xls"
             objExcel.Visible = False
             Exit Sub
        End If
        If pblnSendToPrinter = True Then
           bkWorkBook.PrintOut , , Copies:=1
           objExcel.Visible = False
           Exit Sub
        End If
    End With
    objExcel.Visible = True
End If
End Sub