Параметры отчета о настройке страницы Excel в VBA

Question

Я бы хотел составить список моих печатных таблиц в Excel, например:

Sl no  Sheet name Printable sheet number  Orientation Paper size
 1.     Sheet1     3                       Landscape   A4
 2.     Sheet2     2                       Portrait    lIgle

Код:

Sub printPages()
    Dim r As Long
    Dim s As Byte
    r = 5
    For s = 2 To ActiveWorkbook.Worksheets.Count
        Cells(r, 2).Value = Worksheets(s).Name
        Cells(r, 3).Value = Worksheets(s).PageSetup.Pages.Count
        Cells(r, 4).Value = Worksheets(s).PageSetup.XlPageOrientation.Value
        Cells(r, 5).Value = Worksheets(s).XlPaperSize.Name
        r = r + 1
    Next
End Sub

, но он не работает.