Add selected Text as new Reminder in Reminders.app

Add as new Reminder.scpt

on run {input, parameters}
	-- This code comes from http://raduner.ch/blog/
	-- To be used with an Automator Service
	-- ------------------------------------------------
	set inputText to input as string
	
	tell application "Reminders"
		set newremin to make new reminder
		set name of newremin to inputText
	end tell
	return input
end run