Macro for changing page setup to landscape orientation
Sub Macro2() With ActiveSheet.PageSetup .Orientation = xlLandscape End With End Sub