Worksheet macro to set horizontal alignment of certain cells in certain sheets

[suarezri]

Hi all,

I'm trying to figure out if there is some code that I can put into "ThisWorkbook" that will allow me to select certain sheets and use either "Columns("A:e").HorizontalAlignment = xlCenter" or "Columns("A:e").HorizontalAlignment = xlLeft"

My other option is to go into each individual worksheet and put the code in, which I know will work, just seeing if there is an easier way to hit ~50 sheets at once. Thanks!

 

[onlyadrafter]

Hello,

you could loop through the sheets and run the code. If there is an easy way to determine which sheets you want to run on?

Sub RUB_CODE_ON_SHEETS()
    For MY_SHEETS = 1 To ActiveWorkbook.Sheets.Count
        Select Case Sheets(MY_SHEETS).Name
            Case "Sheet1", "Sheet2"
                'run your code
        End Select
    Next MY_SHEETS
End Sub

put this in a standard module.