This just part of a macro that has been working for months.
All of a sudden it stopped.
Get gets to
..Locked=True
and then just stops, it never gets to the next line.
The only thing I have done was add conditional formatting to some cells.

Dim strSH As String
Dim Var As String
Var = "After_P_Change"
strSH = ActiveSheet.Name
Call Changes(Var)
ActiveSheet.Unprotect Password:="7135"
With Range("G12:H51,P40:Q44,P48:Q60,Q13:Q15,Q17")
.Locked = True
.FormulaHidden = False
MsgBox "Got to call changes"
End With

--
Thank You in Advance
Ed Davis