Fix error of macro (code '1004')

[wowow]

Hi everyone,

I create the attached file and I put VBA Codes in each Sheet, not Module as well as VBA codes apply for whole workbook. Please see the VBA Codes that I make. However, the VBA Codes dedicate in the Sheet 'Report by Person' also run when open the Sheet 'Report by Form No' and generate the error code '1004' saying that Unable to get the PivotTables ptoperty of the Worksheet class. Furthermore, when I put the file on the share folder of my company to enable people to input their own data, the VBA Codes in the Sheet 'Report by Person' also generate the error code '1004' saying that Method 'RefereshAll' of object '_Workbook' failed.

Could anyone help me fix them?

Thank you so much for your help.

Regards,

[AB33]

I did not get an error once I have changed the line on sheet from 'Report by Person
activesheet.PivotTables("PivotTable1")
to


With Me.PivotTables("PivotTable1")

[wowow]

Thank AB33 so much. It works with me too.

I will test this file by putting it on network share folder to check if the second error happens.

If yes, I would like to have your help fix it.

Best Regards,