tell application id "com.omnigroup.omnifocus"
	tell front document
		set lstNotOnHold to flattened projects where (status is not on hold) and ((effectively hidden of its folder is false) or (its folder is missing value))
		tell front document window
			set focus to lstNotOnHold
			set selected grouping identifier of content to "folder"
		end tell
	end tell
end tell