Need to repeat macro across multiple worksheets in workbook

Hello,

I have no experience with VBA so need help in figuring this out. I have the following code:

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

Sub Overtime()
'
' Overtime Macro
' Calculate Overtime
'

'
    Range("A1:R1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("O:O").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("O3").Select
    ActiveCell.FormulaR1C1 = "Overtime"
    With ActiveCell.Characters(Start:=1, Length:=8).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    Range("O4").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC13<0.00001,"""",IF(RC13>0.6458333,RC13-0.6458333,""""))"
    Range("O4").Select
    Selection.AutoFill Destination:=Range("O4:O19"), Type:=xlFillDefault
    Range("O4:O19").Select
    Range("O20").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-16]C:R[-1]C)"
    Range("O21").Select
    ActiveWindow.SmallScroll ToRight:=4
    Range("A1:S1").Select
    Range("S1").Activate
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    ActiveWindow.LargeScroll ToRight:=-1
    Range("A20").Select
End Sub

I want to be able to have it repeat the sheet formatting and calculation across multiple worksheets...how do i do that?

This code will loop through all worksheets in the file. I have also cleaned up the code for macro recorder bloat. I believe this can be cleaned up quite a bit more, as your formatting include settings that are defaults (e.g., .WrapText = False). However, I don't know what settings are in your sheets in the first place and what you really need to change.

I have compiled but not tested this. It appears that to do a decent test I would have to have your workbook with its data and formatting.

Sub Overtime()
'
' Overtime Macro
' Calculate Overtime
'

'
   Dim ws As Worksheet
   
   For Each ws In Worksheets
   
      With ws
      
         With .Range("A1:R1")
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
         End With
         
         .Columns("O:O").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
         
         With .Range("O3")
            .FormulaR1C1 = "Overtime"
            With .Characters(Start:=1, Length:=8).Font
               .Name = "Calibri"
               .FontStyle = "Regular"
               .Size = 11
               .Strikethrough = False
               .Superscript = False
               .Subscript = False
               .OutlineFont = False
               .Shadow = False
               .Underline = xlUnderlineStyleNone
               .ThemeColor = xlThemeColorLight1
               .TintAndShade = 0
               .ThemeFont = xlThemeFontMinor
            End With
         End With
         
         .Range("O4").FormulaR1C1 = _
            "=IF(RC13<0.00001,"""",IF(RC13>0.6458333,RC13-0.6458333,""""))"
         .Range("O4").AutoFill Destination:=Range("O4:O19"), Type:=xlFillDefault
         .Range("O20").FormulaR1C1 = "=SUM(R[-16]C:R[-1]C)"
         .Range("O21").Select
         ActiveWindow.SmallScroll ToRight:=4
         With .Range("S1")
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = True
         End With
      
      End With
   Next ws
   
   ActiveWindow.LargeScroll ToRight:=-1
   Range("A20").Select
End Sub