I have some code that is not centering and formatting all of the columns. I
have coppied the snippet of code that his adjusting the alignment and
autofit. Can anyone tell why the code is not formatting all of the cells?

Columns("A:R").EntireColumn.Select
With Selection.EntireColumn
Cells.EntireColumn.AutoFit
HorizontalAlignment = xlCenter
VerticalAlignment = xlBottom
End With




Thanks!!

here's how i'd do it:

Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
With ws.Columns("A:R")
.AutoFit
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With

--

Gary Keramidas
Excel 2003


"petedacook" <(E-Mail Removed)> wrote in message
news:2E540719-2F5E-41C9-8E32-(E-Mail Removed)...
>I have some code that is not centering and formatting all of the columns.
>I
> have coppied the snippet of code that his adjusting the alignment and
> autofit. Can anyone tell why the code is not formatting all of the cells?
>
> Columns("A:R").EntireColumn.Select
> With Selection.EntireColumn
> Cells.EntireColumn.AutoFit
> HorizontalAlignment = xlCenter
> VerticalAlignment = xlBottom
> End With
>
>
>
>
> Thanks!!