Attribute VB_Name = "WriteShortSellingAmountRatio" Option Explicit Function run(row as integer, content as string) On Error GoTo eh Worksheets(TARGET_SHEET).Range(COL_SHORT_SELLING_AMOUNT_RATIO_ & CStr(row)).Value = content Done: exit Function eh: debug.print "WriteShortSellingAmountRatio" debug.print row debug.print content End Function