Formatar Coluna EXCEL - URGENTE

Juliana desculpe tente assim, acredito que agora funcione

If rs.EOF = False Then
                Set exclApp = CreateObject("Excel.Application")
                Set exclsheet = CreateObject("Excel.Sheet")
                Set exclBook = exclApp.Workbooks.Add
                Set exclsheet = exclBook.Worksheets(1)

                exclsheet.Rows(1).Font.Bold = True

                exclsheet.Cells(1, 1).Value = "FORNECEDOR"
                exclsheet.Cells(1, 2).Value = "GRUPO"
                exclsheet.Cells(1, 3).Value = "ITEM"
                exclsheet.Cells(1, 4).Value = "COD_BARRA"
                exclsheet.Cells(1, 5).Value = "DESCRIÇÃO"
                exclsheet.Cells(1, 6).Value = "REF_FORNECEDOR"
                exclsheet.Cells(1, 7).Value = "FISICO"
                exclsheet.Cells(1, 8).Value = "PESO"
                exclsheet.Cells(1, 9).Value = "LARGURA_DEP"
                exclsheet.Cells(1, 10).Value = "ALTURA_DEP"
                exclsheet.Cells(1, 11).Value = "COMPRIMENTO_DEP"
                exclsheet.Cells(1, 12).Value = "LARGURA_LOG"
                exclsheet.Cells(1, 13).Value = "ALTURA_LOG"
                exclsheet.Cells(1, 14).Value = "COMPRIMENTO_LOG"
                exclsheet.Cells(1, 15).Value = "SITUAÇÃO"

                    Do
                        exclsheet.Cells(Z, 1).Value = rs(0)
                        exclsheet.Cells(Z, 2).Value = rs(16)
                        exclsheet.Cells(Z, 3).Value = rs(1)
                        exclsheet.Cells(Z, 4).Value = rs(2)

                        exclsheet.Cells(Z, 4).NumberFormat = "0000000000000"
                        exclsheet.Cells(Z, 5).Value = rs(3)
                        exclsheet.Cells(Z, 6).Value = rs(4)
                        exclsheet.Cells(Z, 7).Value = rs(5)
                        exclsheet.Cells(Z, 8).Value = rs(6)
                        exclsheet.Cells(Z, 9).Value = rs(7)
                        exclsheet.Cells(Z, 10).Value = rs(8)
                        exclsheet.Cells(Z, 11).Value = rs(9)
                        exclsheet.Cells(Z, 12).Value = rs(10)
                        exclsheet.Cells(Z, 13).Value = rs(11)
                        exclsheet.Cells(Z, 14).Value = rs(12)
                        exclsheet.Cells(Z, 15).Value = rs(15)
                        Z = Z + 1
                        rs.MoveNext
                    Loop Until rs.EOF = True

rs.Close

é acho que agora vai

Tenta ai