макрос отлично работает в ecxell2013 и не хочет работать в ecxell2010

[strokky]

Составил макрос для автоматической нумерации страниц и задания колонтитулов во сей книге. В 2013 екселе все работает как надо, в 2010 не хочет ни в какую ставить номера страниц. Кто знает как это победить?

Sub нумерация()
'
' '

Dim i, j, x As Integer
Dim sh As Worksheet
  x = 15 'номер первой страницы;
  For Each sh In Worksheets
    Application.PrintCommunication = False
    With sh.PageSetup
        .LeftHeader = "&Uгодовой отчет"
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = "&P"
        .RightFooter = ""
        .FirstPageNumber = x
        .Order = xlDownThenOver
        .BlackAndWhite = False
     End With
     j = 0
     For i = 1 To 250
     'Cells(82, 2) = ActiveSheet.Pages.Count
     If Not IsEmpty(sh.Cells(1, i)) Then
     j = j + 1
     End If
     Next
     x = j + x
     Application.PrintCommunication = True
  Next
End Sub