Centre Data In Cell Across Worksheet

[Small Paul]

Hi

I have a massive VBA (eternally grateful to 'Fluff' and 'gallen') which does not centre data in the cells. I have tried recording a macro on a blank workbook and then copy/paste into my VBA. It still does not centre!

The code (for this part) is:

    Range("A1:F500").Select    HorizontalAlignment = xlCenter
    VerticalAlignment = xlCenter
    WrapText = False
    Orientation = 0
    AddIndent = False
    IndentLevel = 0
    ShrinkToFit = False
    ReadingOrder = xlContext
    MergeCells = False

Everything else is great so if someone can advise on this, seemingly simple, problem it would be appreciated.

Thanks
Small Paul.

 

[Fluff]

How about

With Range("A1:F500")
   .HorizontalAlignment = xlCenter
   .VerticalAlignment = xlCenter
   .WrapText = False
End With