excel - 単一セルを範囲に割り当てる方法は?

Question

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim TxtRng As Range
    Set TxtRng = ActiveCell

    If Not Intersect(Target, TxtRng) Is Nothing Then

------------Statements           

    End If

End Sub

私は無限ループを取得しています。範囲に単一のセルアドレスを割り当てたいだけです（例：選択に従って「B6」または「A5」）