Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[F3:F7].ClearContents
'Application.Volatile
If Not Intersect([e3:e7], Target) Is Nothing Then
Range("F" & Target.Row).Value = Range("B" & Target.Row).Value
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'[F3:F7].ClearContents
'Application.Volatile
If Not Intersect([e3:e7], Target) Is Nothing Then
Range("F3:F7").Value = Range("B3:B7").Value
End If
End Sub