Copy & Paste VB codes to sheet modules.

[countryfan_nt]

Hello friends, hope all is well!

I want to copy and paste the code:

Worksheet_Activate
Call copy_value
Call format
End sub

To every unhidden sheet’s module in the workbook.
The sheets are selected via the following code:

Sub SelectSheets()
    Dim mySheet As Object
    For Each mySheet In Sheets
        With mySheet
            If .Visible = True Then .Select Replace:=False
        End With
    Next mySheet
End Sub

Can you please help me with that challenge?

Thank you so much in advance!

 

[AlphaFrog]

You could put this in the ThisWorkbook code module. It would run anytime a sheet is activated and you cannot activate a hidden sheet.

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] Workbook_SheetActivate([COLOR=darkblue]ByVal[/COLOR] Sh [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Object[/COLOR])
    [COLOR=darkblue]Call[/COLOR] copy_value
    [COLOR=darkblue]Call[/COLOR] Format
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

 

[countryfan_nt]

Great! thank you, can the code exclude the following sheets: "DB", "format", and "PT".

 

[AlphaFrog]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Workbook_SheetActivate([color=darkblue]ByVal[/color] Sh [color=darkblue]As[/color] [color=darkblue]Object[/color])
    [color=darkblue]Select[/color] [color=darkblue]Case[/color] Sh.Name
        [color=darkblue]Case[/color] "DB", "format", "PT"   [color=green]'<--Excluded sheet names (case sensitive)[/color]
        [color=darkblue]Case[/color] [color=darkblue]Else[/color]
            [color=darkblue]Call[/color] copy_value
            [color=darkblue]Call[/color] Format
    [color=darkblue]End[/color] [color=darkblue]Select[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]