Pessoal resolvi de outra forma. se a quantidade de itens ultrapassar o limite da primeira pagina então msg informa para selecionar um período menor.
Esse é o código que adaptei:

If Range("A1").Value >= 146 Then
MsgBox ("Selecione um período menor!!!"), vbInformation, ("Erro")
Exit Sub
Else

End If

Talvez possa ajudar alguém.

Obrigado a todos!

.
lude, talvez não tenha nada a ver com seu tópico, mas só para ajudar alguém também, no trabalho costumo colocar no final da planilha ... =Cél("Filename") ... com isto na hora de procurar o arquivo, que foi impresso, fica super fácil !!!
.