Attribute VB_Name = "ReadStockCode"
Option Explicit

Function run(row as integer)
  run = Worksheets("Sheet1").Range("A" & CStr(row)).Value

End Function