Hello Stephen,
Try this :
Sub NbrTachesSelection()
FilterApply Name:="MyFilterOnFlag" 'You have to create the filter before...
SelectSheet
MsgBox "Number of selected tasks : " & ActiveSelection.Tasks.Count, vbOKOnly,
"ActiveSelection.Tasks.Count"
End Sub
Hope this help,
Gérard Ducouret