Option Explicit
Option Compare Text
Public Sub ActivateFilter_Click()
MsgBox "Here in Sub ActivateFilter_Click()"
End Sub
Private Sub cmdTestCallback_Click()
MsgBox "I will return."
DoCmd.OpenForm "Filter Criteria", acNormal, , , , acDialog, Me.Name
MsgBox "I have returned."
End Sub