Error 13: Type Mismatch

Hi experts and gurus,

I have a problem of "Error 13; Type mismatch", while running this code below:

Please Login or Register  to view this content.

I did not have any problem in my other pivot tables with the same code. Please suggest me if I can use the alternate code.

Thank you
Roshan Shakya

Thanks davesexcel for the response.

I understand the difficulty in understanding the problem without entire code. I found that the codes did have a problem without the following additional codes:

On Error Resume Next
.......
On Error Goto 0

I added these lines of codes at the beginning and at the end of codes creating Pivot Table and it worked.

Thank you