TM1 Forum

Posted: **Mon Aug 29, 2011 5:59 pm**

Hi all,

I thought I would just share 3 of my very simple macros in my Personal macro workbook:

Sub TM1activate()

    AddIns("IBM Cognos TM1 Perspectives").Installed = True

End Sub

Sub TM1deactivate()

    AddIns("IBM Cognos TM1 Perspectives").Installed = False

End Sub

Sub ToggleCalculationMode()

    With Application

        If .Calculation = xlCalculationAutomatic Then

            .Calculation = xlCalculationManual
            .CalculateBeforeSave = False

        Else

            .Calculation = xlCalculationAutomatic
            .CalculateBeforeSave = True

        End If

    End With

End Sub

I added a shortcut key to launch them. It's just to avoid the hassle of going into some of the menus in Excel.

Cheers,

Wim

TM1 Forum

Simple Excel macros for TM1

Simple Excel macros for TM1