excel VBA判断后 跳转页面如何写

[mabuchi]

excel
对一个BUTTON写代码，
如果B3=1 则跳到SHEET2工作薄，
如果B3=8 则跳到SHEET5工作薄
如何写VBA代码，谢谢

Private Sub CommandButton1_Click()
Worksheets("SHEET2").Activate
End Sub
只会写这一句

[zipall]

首先要明确一下，是根据哪个工作的B3进行判断的？
假设是根据sheet1!B3

Private Sub CommandButton1_Click()
Select Case Worksheets("SHEET1").[b3]
Case 1
Worksheets("SHEET2").Activate
Case 8
Worksheets("SHEET5").Activate
End Select
End Sub