I copied this code into the intermediate window and it works, not sure why it did not work originally?
Application.CommandBars("Status Bar").Visible =3D True 'Show<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Application.CommandBars("Status Bar").Visible =3D False 'Hide
Its weird because only one function shows while the others do not show in the status bar, example count shows but sum and max are checked.