set {Hrs, Mins, itemCount} to SelectedMins()

display alert (Hrs as string) & "h " & (Mins as string) & "m total for " & (itemCount as string) & " items"

on SelectedMins()
	tell application "OmniFocus"
		tell content of front document window of front document
			set lngMins to 0
			set lstValues to value of (selected trees where class of its value is not item and class of its value is not folder)
			repeat with oValue in lstValues
				set varMins to estimated minutes of oValue
				if varMins is not missing value then set lngMins to lngMins + varMins
			end repeat
			return {lngMins div 60, lngMins mod 60, count of lstValues}
		end tell
	end tell
end SelectedMins