Center As Default

Hi there

i am tring to make any workbook i open when i writ in it, i want what i wrot to be in centerd

Private Sub Workbook_Open()
'*Center
Dim sh As Worksheet


For Each sh In ActiveWorkbook.Worksheets
    With sh.Cells
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
Next sh


End Sub

i know how to do this by a code, but
how to make this as Defult in Excel App ???:(

i tired to do:and put it in Personal.xls workbook

Private Sub Workbook_Open()
    Application.Cells.VerticalAlignment = xlCenter
    Application.Cells.HorizontalAlignment = xlCenter
End Sub

but still......................:(

Re: Center As Default

I tried roy, but it does not work

any idea ?

Re: Center As Default

Any idea yet ?