Ola pessoal... tenho um sistema q esta gerando um relatório em excel p ser mandado a alguns vendedores... esta tudo funcionando menos o alinhamento de colunas... a sintese do codigo é esta:

 

Sub CriaPlanilha()
   Dim exclApp As Object
   Dim exclBook As Object
   Dim excSheet As Object

   'Carregar o Excel:
   Set exclApp = CreateObject("Excel.Application")
   'Crie um WorkBook:
   Set exclBook = exclApp.WorkBooks.Add

   'Defina a planilha ativa p/ facilitar o trabalho:
   Set exclSheet = exclApp.ActiveWorkBook.ActiveSheet

   'Definir o conteúdo de 4 células:
   With exclSheet
         .Cells(1, 1).Value = "1"
         .Cells(1, 2).Value = "2"
         .Cells(1, 3).Value = "3"
         .Cells(1, 4).Value = "4"

         'Salvar o Arquivo
         .SaveAs "c:     este.xls"

   End With

   'Limpe as variáveis de Objeto:
   Set exclSheet = Nothing
   Set exclBook = Nothing
   Set exclApp = Nothing
   exclApp.Quit
End Sub

Private Sub Command1_Click()
   CriaPlanilha
End Sub

 

Agora preciso alinhar uma coluna ou célula a direita outra a esquerda e outra centralizada

Quem puder me ajudar serei grato....