I am getting an "Unable to set the Locked property of the Range class" error
at the last line of the code which I have copied here.

30 If Intersect(Target, Range("F5:F13")) Is Nothing Then GoTo 40
ActiveSheet.Unprotect Password:="mypass"
With Range(Target.Offset(0, 2), Target.Offset(0, 4))
.Validation.Delete
.Font.Color = 0
.Formula = "=VLOOKUP(N" & .Row & ",TABLES!$AF$4:$AG$32,2,FALSE)"
.Locked = True

The Merged cells in H5:J5 depend on the user-entry in F5. Most of the time,
the merged cells will be the vlookup formula, but in some instances, the
merged cells will need to be unlocked and user-entered. I am setting the VBA
up to put the formula in EACH time and (in the code directly following) if
the few instances occur, I will set validation, change the font color, clear
the formula and unlock the range.

I appreciate any help. Brad