Macro File Orientation Setting to Portrait

[jennifermblake]

Can someone please explain how this is done. I will upload my file and feedback from the assessor

 

[LongToast]

Sub SwitchOrientation()
Dim ps As PageSetup
Set ps = ActiveSheet.PageSetup
If ps.Orientation = xlLandscape Then
ps.Orientation = xlPortrait
Else
ps.Orientation = xlLandscape
End If
End Sub