I'm trying to write a macro that will allow me to toggle between Portrait &
Landscape modes.

I know this should be simple, but I'm missing something.

Please assist.

Hi Alan

Sub PrintToggle()
With ActiveSheet.PageSetup
If .Orientation = xlPortrait Then
..Orientation = xlLandscape
Else
..Orientation = xlPortrait
End If
End With
End Sub

--
XL2002
Regards

William



"Alan Tolkoff" <Alan wrote in message
...
| I'm trying to write a macro that will allow me to toggle between Portrait
&
| Landscape modes.
|
| I know this should be simple, but I'm missing something.
|
| Please assist.

Alan

Sub Toggle_Orient()
With ActiveSheet.PageSetup
If .Orientation = xlLandscape Then
.Orientation = xlPortrait
Else
.Orientation = xlLandscape
End If
End With
End Sub

Gord Dibben Excel MVP
On Mon, 13 Dec 2004 17:05:01 -0800, Alan Tolkoff <Alan
wrote:

I'm trying to write a macro that will allow me to toggle between Portrait &
Landscape modes.

I know this should be simple, but I'm missing something.

Please assist.