＜やりたいこと＞
・標準モジュールにプロシージャ（macro(1)）を記述するWorkbook(1)に、Outlookを立ち上げるボタン（macro(2)）を設置したWorksheet(1)を準備。
・macro(1)を実行すると、macro(2)のボタン付きでWorksheet(1)をコピーし、別のWorkbook(2)を作成（Worksheet(1')にmacro(2')ボタン付き）
・Workbook(2)のmacro(2')ボタンを実行すると、Outlookが立ち上がるようにしたい。

＜補足＞
・macro(2)はWorksheet(1)のコピーWorksheet(1')でmacro(2')として機能するよう、ActiveXコントロールのコマンドボタン内に記述。

＜問題点＞
・Workbook(2)のmacro(2')ボタンを実行すると、「非表示モジュール内でコンパイルエラーが発生しました。」とのエラーが表示される。
・なお、コピー元のWorkbook(1)のmacro(2)は正常に機能します。また、コピーするマクロをexcel上の操作のみに限定(macro(3))すれば、コピー先のWorkbook(2)のmacro(3')も正常に機能します。他アプリ（Outlook）に跨がる場合に影響があるのかと推察。

＜Code＞
Private Sub CommandButton1_Click()

CreateObject("Outlook.Application").CreateItem(olMailItem).Display

End Sub

＜環境＞
Windows11
Office365

素人ゆえ、うまく説明ができず、申し訳ございません。
お助け頂けますと大変助かります。

何卒よろしくお願いいたします。

質問の意味が解りませんが。
こんな風にすれば良いのでは？

Private Sub CommandButton1_Click()
 マクロ1
end sub

標準モジュール

sub マクロ1()
  実行したいマクロ
end sub

Workbook(1)をコピーしてWorkbook(2)とし、
そこから、Sheet1以外を削除したらどうですか？

半平太さま

やってみましたが、上手くいかないです。
理解したつもりでしたが、私が間違っているのだと思います。

試してみたのは、Workbook(1).Worksheet(1)のシートモジュールに、
最終的にやりたいマクロ（含むOutlook立ち上げ）を記載。
Workbook(1)の標準モジュールのマクロで、Worksheet(1)をコピーして
Workbook(2).Worksheet(1')を作成。
Workbook(2).Worksheet(1')のマクロを走らせようとしましたが、
エラーになります。

抜粋ですが、codeは以下の通りです。

■　Workbook(1)　標準モジュール

Sub newWaitList(ByRef waitList As String, wbChild)

wbChild.Worksheets("template").Copy
    With ActiveWorkbook
        Application.DisplayAlerts = False
        .SaveAs fileName:=waitList, _
                    FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
                    AccessMode:=xlShared
        .ProtectSharing
        .ActiveSheet.Name = Format(Now, "yyyymmdd")
        .Close SaveChanges:=True
        Application.DisplayAlerts = True
    End With

End Sub

■　Workbook(1)Worksheets(template)　シートモジュール
Private Sub CommandButton1_Click()

Dim maxRow As Long
maxRow = Cells(Rows.Count, 1).End(xlUp).Row

Dim iCounter As Long

    For iCounter = 2 To maxRow
        Range(Cells(iCounter, 2), Cells(iCounter, 10)).BorderAround
        If Range("J" & iCounter).Value = "確認済" Then
            If Range(Cells(iCounter, 2), Cells(iCounter, 10)).Interior.Color <> rgbGray Then
                
                Call mailer 'メール立ち上げ
                               
            End If
               Range(Cells(iCounter, 2), Cells(iCounter, 10)).Interior.Color = rgbGray
                        
        ElseIf iCounter Mod 2 = 0 Then
            Range(Cells(iCounter, 2), Cells(iCounter, 10)).Interior.Color = rgbLightSteelBlue
        Else
            Range(Cells(iCounter, 2), Cells(iCounter, 10)).Interior.Color = vbWhite
        End If
    
    Next iCounter

ThisWorkbook.Save

End Sub



Sub mailer（）

　CreateObject("Outlook.Application").CreateItem(olMailItem).Display

End Sub


ちなみに、コピーして作成したWorkbook(2)の標準モジュール、シートモジュールを
見ようとすると、「プロジェクトがロックされています。」と表示され、
見ることができません。

あと、シートモジュールのコードをSub mailer（）のみ実行する分には機能します。

また、Private Sub CommandButton1_Click()をイベントプロシージャではなく、
シートモジュール上の通常のSubプロシージャにすると、
挙動が、Workbook(1)を参照しに行っているような気がします。

恐らく、基本的なところの理解が足りていないのだと思います。
改めまして、アドバイス頂けますと、大変助かります。
何度もすみません。

＞CreateObject("Outlook.Application").CreateItem(olMailItem).Display

Workbook(2)の実行は、Outlookを参照設定しない状態下で行うので
olMailItem → 0(定数） にしないと拙いのでは？

  CreateObject("Outlook.Application").CreateItem(0).Display