Sub xuan()
Dim sht As Worksheet
For Each sht In ActiveWindow.SelectedSheets
If sht.Name = "Sheet4" Then MsgBox "选中了": Exit Sub
Next sht
MsgBox "没选中"
Set sht = Nothing
End Sub
相关文章：
相似解决方案
热门标签
Sub xuan()
Dim sht As Worksheet
For Each sht In ActiveWindow.SelectedSheets
If sht.Name = "Sheet4" Then MsgBox "选中了": Exit Sub
Next sht
MsgBox "没选中"
Set sht = Nothing
End Sub
相关文章：