Hi All. Is it possible to combine the following two If Not Intersect statements into one statement? What I want to do is when I click on a cell in column B (1st If Not Intersect), it also activates the corresponding cell in column N (2nd If Not Intersect). For example, if click on B50 (which is inserted into "Symbol"), it will also activate N50 (which is inserted into "DateInput").
Hope you understand what I am trying to do. Thanks.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("B10:B110")) Is Nothing Then
Sheet311.Range("Symbol") = Target.Value
End If
If Not Intersect(ActiveCell, Range("N10:N110")) Is Nothing Then
Sheet311.Range("DateInput") = Target.Value - 1
End If
End Sub
Hope you understand what I am trying to do. Thanks.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("B10:B110")) Is Nothing Then
Sheet311.Range("Symbol") = Target.Value
End If
If Not Intersect(ActiveCell, Range("N10:N110")) Is Nothing Then
Sheet311.Range("DateInput") = Target.Value - 1
End If
End Sub