How to run different macros on selected work sheets

[AjayCh]

Hi ,

I am having work book with different work sheets.

I am having macros for different worksheets.
i AM HAVING SHEETS (UsageTracking, DeveloperUsage,DMNE-0418, SAS-0418,SOD-0418, DMNE-0411,SAS-0411,SOD-0411...so on)
I am having a macro for all work sheets starting with SOD,
another macro for worksheets starting with DMNE,another macro for work sheets starting with SAS.
I am having one macro for Usage tracking.

My requirement is when i click on the work sheet starting with SOD,how can run the macro related to SOD.Similarly in all the sheets.

 

[Comfy]

You could use something like this in the "ThisWorkbook" object:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case True
    Case Sh.Name Like "SOD*"
        Call SODMAcro
    Case Sh.Name Like "DMNE*"
        Call DMNEMacro
    Case Sh.Name Like "SAS*"
        Call SASMacro
    Case Sh.Name = "UsageTracking"
        Call TrackingMacro
    Case Else
        MsgBox "Sheet does not have a macro"
End Select


End Sub

Here's my module where all the macros are stored

Sub SODMAcro()
MsgBox "SOD"
End Sub
Sub DMNEMacro()
MsgBox "DMNE"
End Sub
Sub SASMacro()
MsgBox "SAS"
End Sub
Sub TrackingMacro()
MsgBox "Tracking"
End Sub

 

[AjayCh]

Thanks it worked