Code stopped working no reason

[chef]

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

 

[chef]

Many thanks again and I already have had macros enabled in the trust centre as default for years.

I'll get IT involved to see if I can resolve this niggle and potential network issue around adding trusted locations on work network.

 

[James006]

Sad to hear that nowadays ... we are invaded by Security measures which end up preventing people from doing the simplest things ... !!!

 

[chef]

just in case this helps another person...
My IT dept were unsure how to fix problem, but I did some digging and think its a new security measure from Microsoft from article I read
anyhoo I applied the following and now have them working again

Go into Option
Trust Centre Settings
Click on Trusted Locations
Add New Location

add path where your files sit ( I added a few locations on different drives and you can tick box to allow sub folders as well

Hope helps and thanks again for responses
regards
Ian

 

[James006]

Thanks for sharing solution with the Forum