How to fix "Compile error: Expected End Sub" in VBA Macro?

[Dorota Prywata]

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 ?

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
    End With
End Function
 
End Sub

Thanks, D

[Stewart Ross]

You can't define a function (lines 3-10) WITHIN the definition of a SUB (lines 1 and 12). You can CALL the function from the sub, but they must be separately defined.

-Stewart