Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c5:nc19")) Is Nothing Then
If ActiveCell.Value <> "" Then
'With ActiveCell
UserForm2.TextBox5 = Cells(Target.Row, "A").Value
UserForm2.Show
'End With
End If
End If
End Sub