Textbox value equals value of selected cell

I was just about to submit before, then I saw that we made the same solution:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim LR As Long
    
    If Target.Count > 1 Then Exit Sub
    
    LR = Cells(Rows.Count, "D").End(xlUp).Row

    If UserForm1.Visible = True Then
        If Not Intersect(Target, Range("D2:D" & LR)) Is Nothing Then
            UserForm1.TextBox1.Text = Target.Value
        Else
            UserForm1.TextBox1.Text = vbNullString
        End If
    End If

End Sub