Extract Page count of pdf in macro

Hello Naveed,

now the last line of pageCount function having problem

run-time error no. 13

pageCount = CInt(sNumPages)