とある業務でexcel操作マクロを配布するためにuwscでcomして書いたんだけど、
選択中のシートを配列に格納して、それに対して色々あとから処理するっていう
コードなんだけど、そのまま変換したら配列の次元数が違うっていうエラー出ます。
vbaだと動いたのに・・・とりあえず下記では2つのシートを選択している
状態で書いてみたが・・・

EXCEL = GETACTIVEOLEOBJ(excel.application)
Dim arr[1]
Dim i = 0 //配列用
Dim j = 1 //wsのIndex用
Dim wsCnt = EXCEL.ActiveWindow.SelectedSheets.count
For j = 1 To wsCnt
arr[i] = EXCEL.ActiveWindow.SelectedSheets(j).Name
i = i + 1
Next
EXCEL.Worksheets(arr).select