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