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" wrote in message
...
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!!