Attribute VB_Name = "WriteEarningsPerShare"
Option Explicit

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

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

End Function