Hello ShaneBell,

This will set all the worksheets the same.
Sub Macro2()

  Dim Wks As Worksheet
  
    For Each Wks In Worksheets
      Wks.PageSetup.FitToPagesWide = 1
    Next Wks
    
End Sub