去特定的細胞，當一個工作表中選擇

Question

我想去特定的細胞，當一個工作表中選擇

Private Sub Worksheet_Cellselection() 
ActiveSheet Goto:="D5" 
End Sub 

一個不工作

Answer 1

您需要使用Worksheet_Activate事件相關的工作表：

Private Sub Worksheet_Activate() 

Range("D5").Select 

End Sub 

要使用在工作簿幾個工作表，代碼移到Workbook_SheetActivate evenrt（在Workbook列弗內EL）：

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 

Select Case Sh.Name 
    Case "Sheet1", "Sheet2", "Sheet4" '<-- run it only for sheet's with these names 
     Range("D5").Select 
End Select 

End Sub 

Answer 2

Application.Goto ActiveSheet.Range("D5")