7 lines
143 B
QBasic
7 lines
143 B
QBasic
Attribute VB_Name = "ReadCellValue"
|
|
Function run(cell_addr As String)
|
|
|
|
run =Worksheets(TARGET_SHEET).Range(cell_addr).Value
|
|
|
|
End Function
|