Hi,

I need help with VBA Macro for Auto-filter to high lite a header plp advice as per below course a I got Compile error: Expected End Sub ?

Code:
Sub Macro1()

Function FilterOn(myCell As Range) As Boolean
    On Error Resume Next
    With myCell.Parent.AutoFilter
        With .Filters(myCell.Column - .Range.Column + 1)
            If .On Then FilterOn = True
        End With
...