Others source

1Attribute VB_Name = "Others"2Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"3Attribute VB_GlobalNameSpace = False4Attribute VB_Creatable = False5Attribute VB_PredeclaredId = False6Attribute VB_Exposed = False7Attribute VB_TemplateDerived = False8Attribute VB_Customizable = False9Sub SetMacroMode()10    Application.ScreenUpdating = False11    Application.EnableEvents = False12    Application.DisplayAlerts = False13    Application.Calculation = xlCalculationManual14End Sub1516 1718Sub DisableMacroMode()19    Application.EnableEvents = True20    Application.ScreenUpdating = True21    Application.DisplayAlerts = True22    Application.Calculation = xlCalculationAutomatic23End Sub2425 2627Function Get_WS_Codename(ByVal sName As String) As Worksheet28    Dim lCount As Long2930    For lCount = 1 To ThisWorkbook.Worksheets.Count31        If sName = ThisWorkbook.Worksheets(lCount).CodeName Then32            Set Get_WS_Codename = ThisWorkbook.Worksheets(lCount)33            Exit For34        End If35    Next lCount36End Function