Smartview HypSubmitData error

Hi Experts,

I am building a smartview template to allow user to submit using a macro-linked command button. I have imported smatview.bas file into vba editor and setup a sub to handle submit in a separate module.

The code is as follows:

Sub SubmitData()

   Dim ws As Worksheet
   
   For Each ws In ActiveWorkbook.Worksheets

        HypSubmitData ws.Name    

   Next ws

End Sub

When I run the sub it is not submitting, but if I use submit on Hyperion menu it works (needless to say I don't want to do it via the menu).

Can anyone assist?

Thanks

Rob