Access cannot run the callback function 'GetEnabled'

[MRG123]

Access is unable to locate my Sub 'GetEnabled'. I would like to have the button "bttnPAemail" disable unless the form rptPA is active. I cannot get Access to find the Sub 'GetEnabled'. I created a new module called 'ribbonXML' and stored the VBA below in it. Upon load, I get the callback error.

<button id="bttnPAemail" label="Email PA Report" onAction="oPAemail" imageMso="NewMailMessage"
size="large" supertip="Print" getEnabled="GetEnabled"/>

Option Compare Database
Public IRibbonControl As IRibbonUI

Public Sub GetEnabled(ctl As IRibbonControl,ByRef Enabled)
    If Reports!rptPA.Visible =True Then
        Enabled =True
    Else
        Enabled =False
    End If
End Sub

[pbaldy]

A shot in the dark, but I believe it has to be a function rather than a sub