прицепил к кнопке в access макрос создающий excel книгу и форматирует
при компиляции пишет ошибку:
Private Sub Кнопка14_Click()
On Error GoTo Кнопка14_err
Dim ExlDb As New Excel.Application
Dim WrkBk As Workbook, WrkSht As Worksheet
ExlDb.Visible = True
Set WrkBk = ExlDb.Workbooks.Add
Set WrkSht = WrkBk.ActiveSheet
Range("A1:O1").Select
With Selection
.HorizontalAlignment = xlCenter <--------------------------------------
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
end sub