You're missing .xls in your workbook name.
You coud simplify with
[VBA]
Dim tmp as Variant
tmp = Workbooks("Outlier.xls").Sheets("Spreadsheet").Range("vo_a").Value
If IsNumeric(tmp) Then vo_a = tmp
[/VBA]
You're missing .xls in your workbook name.
You coud simplify with
[VBA]
Dim tmp as Variant
tmp = Workbooks("Outlier.xls").Sheets("Spreadsheet").Range("vo_a").Value
If IsNumeric(tmp) Then vo_a = tmp
[/VBA]
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'