.HorizontalAlignment hatası :(

[stressiz]

Arkadaşlar Merhaba
SQLden veri çekip excelde göstermeye çalışıyorum
Kırmızı satırlarda hata alıyorum
nasıl kullanmalıyım yardımcı olurmusunuz
===========================================
Dim ExcelDosyasi As Object
Set ExcelDosyasi = CreateObject("Excel.Application")
With ExcelDosyasi
.Application.Visible = True
.UserControl = True
.Workbooks.add
.ActiveWindow.DisplayGridlines = True
End With

ExcelDosyasi.Range("A1:G1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With

Not olarak bunu Access içinden yapmaya çalışıyorum!