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