Attribute VB_Name = "WriteYield"
Option Explicit

Function run(row as integer, content as string)
  On Error GoTo eh
  Worksheets(TARGET_SHEET).Range(COL_YIELD & CStr(row)).Value = content
  
Done:
  exit Function

eh:
  debug.print "WriteYield"
  debug.print row
  debug.print content

End Function