Добрый день!  
 
Грызу гранит VBA. Вот пишу простенький макрос. Он превращает книжный лист в альбомный. Текст макроса взят из книги Уокенбаха.  
 
Sub Landscape()  
With ActiveSheet.PageSetup  
.Orientation  
End With  
 
End Sub  
 
Он выдает ошибку "1004" и пишет "Нельзя установить свойство Orientation класса PageSetup"  
Где я ошибся?