Private stack As Object Sub StackPush(ParamArray setting()) ‘ see .xlsm for most current version of this routine Dim item As Variant, curr As Variant If stack Is Nothing Then Set stack = CreateObject("New:{4599202D-460F-3FB7-8A1C-C2CC6ED6C7C8}") ' CreateObject("System.Collections.Stack") For Each item In setting Select Case item Case aEnableEvents: stack.Push Application.EnableEvents Case aScreenUpdating: stack.Push aScreenUpdating Case aDisplayAlerts: stack.Push aDisplayAlerts Case aCalculation: stack.Push aCalculation Case Else: MsgBox "110659 err" End Select Next End Sub |
Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.
TRUSTED BY