Вставка колонтитула при печати.

[Zet13]

Excel 2010. Необходимо, чтобы при печати книги (выборочно, не все листы) формировался нижний центральный колонтитул. Его содержимое берется из ячейки А1 для каждого листа.
Написал следующий код:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim aWorksheet As Worksheet
For Each aWorksheet In ThisWorkbook.Worksheets
aWorksheet.PageSetup.CenterFooter = aWorksheet.Range("A1").Value
Next aWorksheet
End Sub

При отправке на печать вываливается ошибка 13 - несовпадение типов в 4 строке. Тем не менее делает все правильно, но выскакивающее окно с сообщением об ошибке выглядит не кошерно.
Подскажите, пожалуйста, как исправить ситуацию.