Function AutoKmpakt()
Application.SetOption "Auto compact", True
End Function