I have the simple code below and on various workbooks that have worked for years.
Just a list of staff and when I click it places name in A3 and I calculate various interations from there.
For some reason this has stopped working and I'm at a loss as to why. I havent changed anything on the code and everything looks in order.
Automatic calculation is on.
Have similar type of code on code on other workbooks and they dont work now either. Finding really strange and at a loss.
The only thing I have read is that there is some additional security features from Microsoft in Jan but unsure of impact or how to resolve, if indeed this is now causing a problem
Can anyone suggest a solution please as the code is correct?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C5:C35")) Is Nothing Then
Range("A3").Value = Target.Value
End If
End Sub
regards
Ian
Just a list of staff and when I click it places name in A3 and I calculate various interations from there.
For some reason this has stopped working and I'm at a loss as to why. I havent changed anything on the code and everything looks in order.
Automatic calculation is on.
Have similar type of code on code on other workbooks and they dont work now either. Finding really strange and at a loss.
The only thing I have read is that there is some additional security features from Microsoft in Jan but unsure of impact or how to resolve, if indeed this is now causing a problem
Can anyone suggest a solution please as the code is correct?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C5:C35")) Is Nothing Then
Range("A3").Value = Target.Value
End If
End Sub
regards
Ian