我同时选中了B、C工作表；A、D工作表没有选中，如何用vba将选中的工作表放到数组中？

[fjtcake]

如图，我同时选中了B、C工作表；A、D工作表没有选中，如何用vba将选中的工作表放到数组中？


我的目的是判断工作表是否被选中，选中就放入数组里，不是简单的判断工作表名称是B、C就放入数组或将第2、3个工作表放入数组。 或者告诉我如何判断工作表被选中了也行。。。。请高手帮忙。。。。

[Tiger_Zhao]

    Dim i As Long
    
    For i = 1 To ActiveWindow.SelectedSheets.Count
        Debug.Print ActiveWindow.SelectedSheets(i).Name
    Next

[fjtcake]

谢谢了，可以实现判断工作表是否被选中了，追问一下 如何将循环的结果放入数组里内？ 我想得到下面那样的结果： Array("sheet2", "sheet3", "sheet4")

[of123]

    Dim i As Long
    Dim strArr() As String
    Redim strArr(1 To ActiveWindow.SelectedSheets.Count)
    For i = 1 To ActiveWindow.SelectedSheets.Count
        strArr(i) = ActiveWindow.SelectedSheets(i).Name
    Next