ב 3 מחשבים הקוד עובד וב 2 אחרים הקוד לא עובד- הודעת שגיאה

[מרשמלו21]

הקלטתי מאקרו לא יכול לעלות את הקבצים : מדובר על מערכות WIN 2010
OFFICE 2016 Professional PLUS
בשלושה מחשבים שתיים בשפה האנגלית ואחד עברית הקוד עובד
בשני מחשבים אחרים שהם בשפה העברית כולם אותו אופיס פרופיישנל 2016 פלוס- הקובץ לא עובד מקבל את ההודעה המצורפת בקובץ ומסומן בצהוב הקוד המצורף.

מנסה במאקרו להגדיר את pivot table את ה סכום - הגדרת כסכום עם מספר פסיק ומינוס באדום
ההודעה קובץ מצורף
הקוד : לא הצלחתי להעתיק את הקוד מדויק ( הצבע בצהוב נצבע גם בתוך הקוד מאקרו ).

מצורפים קבצים ( חלק מהקוד - היכן שעוצר במאקרו ) לא יכולתי לעלות קבצים בגלל אבטחת מידע .

עזרתכם ( יכול להיות קשור לאקסל להגדרות באקסל !?

With ActiveSheet.PivotTables("PivotTable2").PivotFields
("Sum of סכום")

.NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "

End With

 

[מרשמלו21]

helppp
?
מצורף צילום מהאקסל שהקוד לא עובד

 

[מרשמלו21]

מצורף תמונה מהאקסל שהקוד כן עובד

 

[ziv98]

תמונות יפות מאוד !