Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
программно вывожу на лист данные
xl.Application.Visible = True
xl.Parent.Windows(1).Visible = True
xl.Range("A2:A6").Merge
xl.Range("A2:A6").HorizontalAlignment = 2 ' выводить в центре ячейки
xl.Range("A2:A6").VerticalAlignment = 2 ' выводить в центре ячейки
========================================================
горизонтальное выравнивание почему то не работает???