Question

VBA代码，如何按条件跳转到另一个工作表中？

我想做一个宏，要求如下，VBA代码怎么写呀！
在Sheet1中，单击一个自选图形后，如果Sheet2是隐藏的，就取消隐藏并跳转到Sheet2!A1单元格内，如果Sheet2不是隐藏的就直接跳转到Sheet2!A1单元格内。

Answer 1

Sub aa()
With Worksheets("sheet2")
.Visible = True
.Activate
.Range("a1").Select
End With
End Sub
----------
将自选图形的宏指定为上面的aa宏

Answer 2

　　比如
　　Sub ActionSht()
Worksheets(2).Visible = xlSheetVisible
Sheets(2).Select
Range("a1").Select
End Sub