macro to run on mutiple workseets

[Eric Kelcher]

I have a macro that I would like to run on multiple worksheets within a workbook, The names of the worksheets is not consistent nor is there always the same number of worksheets. Is there a way to make this happen?

 

[My Aswer Is This]

Probable yes

What do you want this script to do?

 

[Eric Kelcher]

The script I have written reformats the data into format that is printable then prints the page. I currently have to run macro on each page which it does correctly.

Here is the actual script, I use to have a recommended add-on that I cannot recall what it was called for creating a file for bringing macros into the BBS that I have lost with the new computer upgrade. ???

Columns("F:F").Select
Selection.ColumnWidth = 45
With Selection
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveWindow.LargeScroll ToRight:=-1
Columns("E:E").Select
Selection.ColumnWidth = 5
Columns("D:D").Select
Selection.ColumnWidth = 20
Columns("C:C").Select
Selection.ColumnWidth = 5
Columns("B:B").Select
Selection.ColumnWidth = 5
Columns("A:A").Select
Selection.ColumnWidth = 5
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

 

[Norie]

Eric

Can you post the code?

 

[Eric Kelcher]

updated my prior post to include the actual code at same time you asked

 

[Norie]

Eric

Not sure how to handle the ExecuteExcel4Macro but this will run the rest of the code on all the sheets in the activeworkbook.

For Each ws In ActiveWorkbook.Sheets

    With ws
        With .Columns("F:F")
            .ColumnWidth = 45
            .VerticalAlignment = xlBottom
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        .Columns("E:E").ColumnWidth = 5
        .Columns("D:D").ColumnWidth = 20
        .Columns("C:C").ColumnWidth = 5
        .Columns("B:B").ColumnWidth = 5
        .Columns("A:A").ColumnWidth = 5
        
'        ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
        
    End With
    
Next ws

 

[Eric Kelcher]

Thank you that did it, I moved the print function to the end as a print entire workbook function rather than printing each page after formatting.

IE replaced
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
with
ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
after the Next WS command