Is there any way to connect Smart View with VBA?

[jaik22]

Private Sub btnLogin_Click()


Dim UN As String
Dim PW As String


UN = tb_UN.Value
FW = tb_PW.Value
ConnectSheetsToEssbase UN:=UN, PW:=PW


Unload frmLogin




End Sub


Public Sub ConnectSheetsToEssbase(ByVal UN As String, ByVal PW As String)
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
    x = HypConnect(ws.Name, UN, PW, "EST")
    Next
    


End Sub

I am using this code in a form to connect smart view, but its not doing anything. Do I miss anything here?

Thank you