 <p>Back to my initial file, I managed to do some progress. Please find my file here: <a href="http://cjoint.com/14oc/DJbb2yqJ5XQ.htm" rel="nofollow">http://cjoint.com/14oc/DJbb2yqJ5XQ.htm</a></p> <p>I managed to be able to apply the PivotItem.Visible property on "(blank)" by adding this to the code:</p> <pre><code>mytable.ManualUpdate = True Dim pf As PivotField Set pf = ActiveSheet.PivotTables(1).PivotFields("date closed") pf.AutoSort xlManual, pf.SourceName </code></pre> <p>Now when it comes to compare the other dates with the max date, it does not work and I think it is because it compares a dd/mm/yyyy with a mm/dd/yyyy (I am not sure but please look at the printscreen): <a href="http://i62.tinypic.com/wv7o9l.jpg" rel="nofollow">http://i62.tinypic.com/wv7o9l.jpg</a></p> <p>Any help ? Thanks !</p> <p>Tweedi </p>