Centered columns in a large pivot table

[Saintor]

Three of my columns are set as centered. For whatever reason, some rows (out of 18000) will be right-aligned and it seems to be random.

I did this code.

    Worksheets("WhReview").Range("D6:F" & Range("F" & Rows.Count).End(xlUp).Row).Select
    With Selection
            .HorizontalAlignment = xlCenter
    End With

.... but it is painfully slow and takes minutes.

What should I look for to improve this?

[romperstomper]

That code should not take minutes, but it would be better to use something like:

With Worksheets("WhReview")
   .Range("D6:F" & .Range("F" & .Rows.Count).End(xlUp).Row).HorizontalAlignment = xlCenter
    End With

Note that if you have numeric cells with a padded format, like Accounting, then they will appear right-aligned even if the cell is set to centered.

[Saintor]

Thank you for the corrected syntax.

Still slow.

If I don't fix it with VBA, here is how it looks (permission denied on image upload). All columns in general format.

https://live.staticflickr.com/65535/...b259dd07_n.jpg

[romperstomper]

I can't tell anything from a picture.