API Sample - Get Binder By Name


Function GetBinderByName(theBinders As Variant, bindertitle As String) As Variant
	' retrieves binder by title
	' if binder does not exist, normal call returns error rather than nothing (which is why this function is desired)
	
	On Error Goto FErrorHandler
	
	' get binder
	Set GetBinderByName=theBinders.ItemByTitle(bindertitle)
	
	Exit Function
	
FErrorHandler:
	' return nothing
	Set GetBinderByName=Nothing
	Exit Function
	
End Function