Odd, have you tried completely turning off screenupdating, too?
Code:
Sub MyMacro()
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
'some code
'some code
'some code
Application.DisplayStatusBar = True
Application.ScreenUpdating = True
End Sub
This should be necessary except once at the top and once at the bottom to turn it back to normal.