Dùng sự kiện để chọn ô (1 người xem)

[AnhThu-1976]

Em chào Thầy cô & Anh chị!
Trong cùng 1 file nếu từ sheet 1, em click qua sheet 2, thì con trỏ tự động chọn ô G5 của sheet 2
Lâu rồi, em cũng chưa biết dùng sự kiện và code như thế nào?
Em mong mọi người giúp
Em cảm ơn nhiều!

 

[AnhThu-1976]

Em đã tìm ra được
Private Sub Worksheet_Activate() '...........(1)
Cells(3, 5).Select
End SubNhưng trước đó trong sheet này em cũng có sư kiện Private Sub Worksheet_Activate
cụ thể

Private Sub Worksheet_Change(ByVal Target As Range)'..........(2)
If Not Intersect(Target, Range("B1")) Is Nothing Then
Call LOC_TS
End If
Bây giờ em muốn ghép 2 sự kiện (1) và (2) thành một thì ghép như thế nào ạ
Em ghép như thế này nó không chạy

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(3, 7).Select
If Not Intersect(Target, Range("B1")) Is Nothing Then
Call LOC_TS
End If
Vui lòng chỉ em cách ghép

 

[AnhThu-1976]

Dạ em làm được rồi
Để riêng 2 code cũng được