Macro Connect all Sheets in SmartView

Hello all,

Could you please help me with the automatic connection in all worksheets in an excel file using Smartview? The old essbase had this option. I just connected in one sheet and automatically I would be connected in the whole Excel file.
As I saw, Smartview does not work this way. I made a macro, but it does not work. I have no error on it, but it just does not work. It worked for 1 day and then just all of a sudden it stopped.
I am desperate. I can not connect manually in every sheet otherwise I will go crazy. I am working with very large databases.

Thanks you so much,

(Previous to writing this macro I imported the .bas file to declare all functions as safe)

Public Sub Connect()
   
    Dim wsSheet As Worksheet
   
    For Each wsSheet In ActiveWorkbook.Worksheets
        x = HypConnect(wsSheet.Name, "user", "password", "Connection")
    Next wsSheet
   
End Sub