Hola,
He modificado PDSaveFull por un 1 y a funcionar, muchas gracias Sun_Force :)
He modificado para recorrer todas las hojas e indicar el mismo texto.
If AddToThisPage > PageCount Then
MsgBox "Can not write to page " & AddToThisPage
Exit Function
End...