How can I format all Cells in a XLS File to Right Justified?

[Jack]

Thanks in advance for any help,

Jack

PS - Also am trying to set all columns to the width of 25 too.

Thanks to anyone who can help.

 

[Johz]

With Activesheet.Cells
.HorizontalAlignment = xlJustify
.VerticalAlignment = xlBottom
.ColumnWidth = 25
End With

I'm not sure the HorizontalAlignment was the way you wanted, but you'll get started with this. If you wanted this done to all sheets in a workbook, use this:

dim s as worksheet
for each s in thisworkbook.worksheets
With s.Cells
.HorizontalAlignment = xlJustify
.VerticalAlignment = xlBottom
.ColumnWidth = 25
End With
next s