Добавить текст в определенную ячейку, когда фокусируется на определенной ячейке

Question

Как вы можете добавить текст в ячейку C18, когда мой «фокус» (когда я щелкнул по этой ячейке) на ячейке E18? Я пробовал несколько комбинаций кодов при поиске здесь по другим вопросам, но ничего не происходит.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim ws As Worksheet:    Set ws = ThisWorkbook.Worksheets(1)
    Dim myCell As Range:    Set myCell = ws.Range("E18")
    Dim iSect As Range

    Set iSect = Application.Intersect(Target, myCell)

    'If the selection is not your cell, exit sub
    If iSect Is Nothing Then Exit Sub
        Range("$C$18").Value = "HERE IS THE TEXT I WANT"

End Sub

Спасибо за вашу помощь

Answer 1

Это работает на моем листе. Дай мне знать!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim trigger As Range
    Set trigger = Range("E18")

    If Intersect(ActiveCell, trigger) Is Nothing Then Exit Sub

    If Not (Intersect(ActiveCell, trigger) Is Nothing) Then
        Range("C18").Value = "Here is the text I want"
    End If

End Sub