Hi,
I built this macro to auto refresh within SmartView. Every time I run these two macros while using SmartView I get this error. Can someone help me out?

These are the two Macros I am using:
Private Sub Workbook_Open()
Dim Confirm As Variant
Confirm = MsgBox("Would you like to refresh?", vbQuestion + vbYesNo, "Please confirm")
If Confirm = vbNo Then Exit Sub
Call HypMenuVRefreshAll
curWorksheet = ActiveSheet.Name
x = HypRetrieve(curWorksheet)
If x = 0 Then
MsgBox ("Retrieve successful.")
Else
MsgBox ("Retrieve failed.")
End If
End Sub
and
Sub refreshWS()
Run "refreshWS"
End Sub