Looping Through Worksheets

[jadamvgrant]

Can some one help me in getting my code to loop through all worksheets in WorkBook
Range("B1:P1").Select
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = True
End With
Selection.UnMerge
Range("B1").Select
Selection.Copy
Range("A3:A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3", "P11").Select
Selection.Copy
Sheets("Summary").Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A5").Select
Selection.End(xlDown).Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select

 

[Norie]

Try this.

Dim ws As Worksheet

    For Each ws In ActiveWorkbook
    
        With ws
            With .Range("B1:P1")
                .HorizontalAlignment = xlGeneral
                .VerticalAlignment = xlTop
                .WrapText = True
                .Orientation = 0
                .AddIndent = False
                .IndentLevel = 0
                .ShrinkToFit = False
                .MergeCells = True
                .UnMerge
            End With
            
            .Range("B1").Copy
            .Range("A3:A11").PasteSpecial Paste:=xlPasteValues
            .Range("A3", "P11").Copy Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Offset(1)
        End With
        
    Next ws

 

[jadamvgrant]

Sub PayerMix()'
' Payer Mix Macro
Dim ws As Worksheet

For Each ws In ActiveWorkbook

With ws
With .Range("B1:P1")
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = True
.UnMerge
End With

.Range("B1").Copy
.Range("A3:A11").PasteSpecial Paste:=xlPasteValues
.Range("A3", "P11").Copy Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Offset(1)
End With

Next ws
End Sub

Gives me an error at "For Each ws In ActiveWorkbook"

 

[hiker95]

jadamvgrant,

Try changing the following line of code:

For Each ws In ActiveWorkbook

To the following:

For Each ws In ThisWorkbook.Worksheets