Automate creation of event macro

[simmerer]

Hi,
So I have a monthly report that I have automated to refresh with new data and perform other preparations. One tool I have will cause the header to change color if filtered. That way I don't forget the filter and allow it to mess up the rest of my work. I want to add the creation of this macro on a sheet object to my other preparations which I run as a batch. Here is the code that I use:

Option Explicit

Private Sub Worksheet_Calculate()
  Dim c As Long
  Dim bFiltered As Boolean

  If ActiveSheet.AutoFilterMode Then
    With ActiveSheet.AutoFilter.Filters
      For c = 1 To .Count
        If .Item(c).On Then
          bFiltered = True
          Exit For
        End If
      Next c
    End With
    ActiveSheet.AutoFilter.Range.Rows(1).Interior.Color = IIf(bFiltered, vbRed, RGB(217, 217, 217))
  End If
End Sub

I was unsuccessful with recording this.

 

[RobertSF]

It sounds like what you're trying to do is "insert a macro programmatically into a workbook." I can't just roll the code off because I'm not that good, but I think these pages will guide you in the right direction.
https://stackoverflow.com/questions/14493473/how-to-add-excel-2010-macro-programmatically
https://www.mrexcel.com/forum/excel...tically-inserting-worksheet-change-event.html