Sub Main
Dim atopic As Topic
Dim tot As Integer
tot=0
For Each atopic In ActiveDocument.Range(mmRangeAllTopics)
If atopic.Task.Complete >=0 Then
tot=tot+1
End If
Next atopic
MsgBox("You have"& Str(tot)& " activities to complete",,"Activity Count")
Debug.Print tot
End Sub