EXCEL 用VB怎么选择打开指定关联的工作表

做了若干个activeX插件
分别命名了A,B,C,D等
现在用命令已经做成如下
Option Explicit
Const str1 As String = "目录"
Const str2 As String = "跟踪单"
Const str3 As String = "点检表1"
Const str4 As String = "点检表2"
Private Sub A_Click()
Dim i As Integer
For i = 1 To Sheets.Count
Select Case Sheets(i).Name
Case str1, str2, str3
Case A.Caption
Sheets(i).Visible = xlSheetVisible
Sheets(i).Activate
Case Else
Sheets(i).Visible = xlSheetHidden
End Select
Next
End Sub
想要的效果是点某几个比如A,B,C按钮的时候，显示选择的页面，目录，跟踪单和点检表1
点某几个比如X,Y,Z按钮的时候，显示选择的页面，目录，跟踪单和点检表2
就是根据不同的工作表，点检表1或者2按需要选择的显示
请问这上面的代码如何优化呢！
感谢！