Thank for you answer.
but I want to use press key F5 and jump to other sheet ...,active cell in
other sheet .....
--
mai


"Ken Johnson" เขียน:

Hi Mai,

Use this version of the code which has a line break so that it pastes
correctly into the code module.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A" & Right(Me.ActiveSheet.Name, _
Len(Me.ActiveSheet.Name) - 5)).Select
End Sub

Ken Johnson