Hi

You are missing a single dot before cells.select to set the reference
to ws, ie it should read:

..Cells.Select

I would also skip the select statement as it slows down your code.

Sub Change_for_ALL_Worksheets()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
With ws
'-----------------------------------------------------------------------
'.With Statement code STARTS here below:
With .Cells
.VerticalAlignment = xlCenter
End With
'.With Statement code ENDS here above.
'-----------------------------------------------------------------------
End With
Next ws
End Sub

Hopes this helps
.....
Per


On 20 Aug., 06:20, StargateFan
wrote:
I found the following script, with my line of coding in the middle. *I
was just trying to make all the sheets have horizontal alignment in
them. *After running this, the sheets remained with the alignment they
had. *I'm just curious as to how you'd script something that would run
through all the sheets.

I'm hoping/guessing that this could be a permanent, re-usable script
in our Personal.xls. *Once we find code that works on one sheet,
hopefully we could plug it into the middle, below, and the action
would be repeated on all sheets (?).

I searched and searched and this is about the only script that came
up that _seemed_ to be a good base to have to re-do, as needed.

Anyway, thanks!

Sub Change_for_ALL_Worksheets()
* * Dim ws As Worksheet

* * For Each ws In Worksheets
* * * * With ws
'-----------------------------------------------------------------------
* * * * * * *'.With Statement code STARTS here below:
* * * * * * *Cells.Select
* * * * * * *With Selection
* * * * * * * * *.VerticalAlignment = xlCenter
* * * * * * *End With
* * * * * * *'.With Statement code ENDS here above.
'-----------------------------------------------------------------------
* * * * End With
* * Next ws
End Sub