smartview hypretrieverange error 10000

I'm getting error code 10000 when running the macro below - not sure what that means or how to resolve.

Sub RetrieveRange()

Dim vtSheetName As Variant
Dim vtRange As Variant
Dim vtConnName As Variant
Dim vtT As Variant
Dim vtX As Variant

vtSheetName = ActiveSheet.Name
vtRange = Selection
vtConnName = "epmap-2-essbase.us.oracle.com_core_core"

vtX = HypRetrieveRange(vtSheetName, vtRange, vtConnName)

If (vtX <> 0) Then
    MsgBox (vtX)
End If

'vtT = HypDisconnect(ActiveSheet, False)

End Sub