auto fit & horizontal alignment not working

[petedacook]

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!!

 

[Gary Keramidas]

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