vba中同时选中多个sheet之后的操作怎么实现？

Question

我现在需要用vba实现一个功能，用ctrl连点，选中多个sheet，sheet名既是表名，把所有选中的sheet中的数据更新至oracl数据库中相对应的表中，单个sheet更新数据库的数据我已经有一定的思路了，现在就是不知道怎么把所有选中的sheet的数据进行更新。
其实最关键是我不知道怎么得到所选中的所有sheet的sheet名，如果能得到所有选中的sheet名，那么顶多对单个sheet表更新的操作做个循环就可以了。
请各位高手帮下忙，解决一下怎么获得多个sheet名的方法！！！如果能给出更加方便的更新多个sheet数据的方法就更好了！！！

Answer 1

Sub Macro2()   For i = 1 To ActiveWindow.SelectedSheets.Count 'ActiveWindow.SelectedSheets保存的就是选择Sheet的集合.
      MsgBox ActiveWindow.SelectedSheets(i).Name  '显示每一个Sheet的名字
   Next
End Sub

Answer 2

这个好办：Sub Test()
    Dim Sh As Worksheet
    For Each Sh In ActiveWindow.SelectedSheets
        Debug.Print Sh.Name
    Next
End Sub

Answer 3

ActiveWindow呀？怪不得我在WorkBook中找，找不到，WorkSheet中找也没有。