HypRetrieve returns -3 Excel VBA

Question

I've written some VBA code to run a macro inside my Excel 2007 worksheet. I'm using Hyperion Smart View version 9.3.1.2.029. Here's the code I created to refresh my worksheet:
Sub refreshData()
'FileSystem.FileCopy "C:\ExpenseFcstDownload\Expense_Forecasting.txt", "C:\ExpenseFcstDownload\Expense_Forecasting_Previous.txt"
'Application.ScreenUpdating = False
Dim costCenterRowStart As Integer
Dim costCenterColStart As Integer
Dim costCenterCell As range
Dim forecastRowStart As Integer
Dim forecastColStart As Integer
Dim forecastCell As range
Dim fileName As String
Dim delimiter As String
Dim append As Boolean
Dim rollup As String
Dim i As Integer
costCenterRowStart = 2
costCenterColStart = 1
forecastRowStart = 6
forecastColStart = 1
fileName = "c:\Expense_Forecasting.txt"
delimiter = "|"
append = False
i = 0
Set costCenterCell = getCell(costCenterRowStart, costCenterColStart, Sheet4)
Set forecastCell = getCell(forecastRowStart, forecastColStart, Sheet2)
connect
While costCenterCell.Offset(i, 0) <> ""
range(forecastCell, forecastCell.End(xlDown)).Clear
'Sheet4.Select 'Cost Center Sheet
costCenterCell.Offset(i, 0).Copy
'Sheet2.Select 'Forecast Sheet
'forecastCell.Offset(0, 1).Select
range(forecastCell.Offset(0, 1), forecastCell.Offset(0, 1).End(xlDown)).Offset(0, -1).PasteSpecial (xlPasteValues)
'Range(forecastCell.Offset(0, 1).Address, forecastCell.Offset(0, 1).Address.End(xlDown)).Select
'Range(forecastCell.Offset(0, 1), forecastCell.Offset(0, 1).End(xlDown)).Offset(0, -1).PasteSpecial (xlPasteValues)
forecastCell.Offset(0, 7).Formula = "=VLOOKUP(TRIM(B6),'ACCOUNT MAPPING'!$A$5:$B$291,2,FALSE)"
forecastCell.Offset(0, 7).Copy
' forecastCell.Select
range(forecastCell, forecastCell.End(xlDown)).Offset(0, 7).PasteSpecial (xlPasteFormulas)
'Application.Wait Time + TimeSerial(0, 0, 30)
'do the refresh
While Len(forecastCell) = 12
retrieve
Set forecastCell = getCell(forecastRowStart, forecastColStart, Sheet2)
Wend
'Application.Wait Time + TimeSerial(0, 0, 30)
Set forecastCell = getCell(forecastRowStart, forecastColStart, Sheet2)
forecastCell.Offset(0, 7).Formula = "=VLOOKUP(TRIM(B6),'ACCOUNT MAPPING'!$A$5:$B$291,2,FALSE)"
forecastCell.Offset(0, 7).Copy
' forecastCell.Select
range(forecastCell, forecastCell.End(xlDown)).Offset(0, 7).PasteSpecial (xlPasteFormulas)
'Sheet2.Select
'forecastCell.Select
'range(forecastCell, forecastCell.End(xlToRight)).Select
'range(forecastCell, forecastCell.End(xlDown)).Select
'export to txt
append = i
exportText forecastCell, fileName, delimiter, append
'forecastCell.Offset(0, 7).Select
range(forecastCell.Offset(0, 7), forecastCell.End(xlDown)).Offset(0, 7).Clear
'forecastCell.Select
range(forecastCell, forecastCell.End(xlDown)).Clear
i = i + 1
Wend
disconnect
Application.ScreenUpdating = True
Workbooks(1).Save
'FileSystem.FileCopy "C:\ExpenseFcstDownload\Expense_Forecasting.txt", "P:\Expense\Load_Data\Expense_Forecasting.txt"
Application.Quit
Public Sub connect()
Dim x As Long
x = HypConnect("Forecast Data", "user1", "1234", "EssbaseSpendExpense")
End Sub
Public Sub disconnect()
Dim x As Long
x = HypDisconnect("Forecast Data", True)
End Sub
Public Sub retrieve()
Dim x As Long
x = HypRetrieve("Forecast Data")
End Sub
If I step through my code (F8), it works fine. If I try to run the macro by itself (F5), the HypRetrieve will randomly return -3. I've noticed that it seems to fail more often when I'm multitasking. If I keep the spreadsheet focused and don't move the mouse, it will sometimes work. I couldn't find any error description for -3 except that it's a local failure. I know others have gotten this type of error but I couldn't find out how they resolved it.
Thanks.

Answer 1

Just a guess but make sure the active sheet is the one where you want to perform the retrieve.
Even though the first parameter is for sheet name, currently the VBA macros ignore that setting and default to the active sheet. Sheetname is a placeholder parameter for future use.