Centering

[LeeHitchen]

Hi All

Does anyone know of a way of automatically Centre-aligning text in each row each time you open a new worksheet?.

ta

Lee

 

[Sir Vili]

Hello LeeHitchen.

Here is simple code:

Sub Center_All_Cols()
Cells.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Range("A1").Select
End Sub

Sub Autpen()
Center_All_Cols
End Sub

Copy it from here on Module and save. Next time when opening Workbook all columns are Centre-aligning.

Best Regards Sir Vili.

 

[LeeHitchen]

Sir Vili

Where do I place it so everytime I create a new workbook they are all Centre aligned. Sorry to sound naive....but I am!

 

[Sir Vili]

Sorry I did not read carefully Your question. When opening a new workbook, then take keyboard command ALT F11. Then from Menu Insert Module and copy this code.

I think this the only way to do. Maybe others can help You more.

By the way there are no silly questions, but about answers I do not know. Just kidding :wink:

Sir Vili.

 

[PaddyD]

Another option:

1) Open up a new workbook.
2) Go to Format | Styles...Click modify
3) Select the Alignment tab & pick the options you want as the defaults for your workbook. click OK etc...
4) Enter some text to see the effect.

So, the issue now is how to get this default setup to apply to all your new workbooks. As styles are one of the things that can be stored in templates, one answer would be to save the workbook as a template (*.xlt) and base future workbooks on that template. See the help topics on:

'Settings Microsoft Excel can save in a template'

'Customize the defaults for a workbook or worksheet by using a template'

etc.

Paddy

 

[LeeHitchen]

Thanks for your tip Paddy, I'll try it later today.

Regards

Lee