Checkbox maddness!

[test3xc31]

Hi hoping someone can help me.
For some reason I cannot get the following to work.

when the checkbox is ticked i.e. TRUE
1. unlock cell named "merchant"
2. clear merchant contents (a formula)
3. message box "Enter Merchant"

(I've got this bit to work fine, where it falls apart is the following)

When the check box is unticked i.e. False
1. paste the preset formula back in the cell named "merchant"
2. and lock cell

It should be so simple! but its driving me mad!

Thankyou in advance. I'm expecting to face palm when I see the answer!

 

[Fluff]

Hi & welcome to MrExcel.
Care to post the code you already have, along with the formula?

 

[test3xc31]

This is what I have so far, It all functions appart from the cell locking. The sheet isn't password protected just protected. I've highlighted in red the lines of code that are not responding.

Thanks

Sub DataInput()


If ActiveSheet.CheckBoxes("Check Box 25").Value = 1 Then
On Error Resume Next
Range("Merchant").Select
Selection.Locked = Fals
ActiveCell.FormulaR1C1 = ""
MsgBox ("Enter Merchant")
Range("Merchant").Select

Else: Range("Merchant").Select
On Error Resume Next
ActiveCell.FormulaR1C1 = _
"=IF(Variety="""",""SELECT VARIETY"",IF(VLOOKUP(Variety,FixedData!R[11]C[-4]:R[16]C[-2],3,FALSE)="""",""Unspecified"",VLOOKUP(Variety,FixedData!R[11]C[-4]:R[16]C[-2],3,FALSE)))"
On Error Resume Next
Selection.Locked = True
Range("Destination").Select

End If
End Sub

 

[Fluff]

In what way doesn't it work?
Remove all 3 instances of this

On Error Resume Next

do you get any errors?

 

[test3xc31]

In what way doesn't it work?
Remove all 3 instances of this

On Error Resume Next

do you get any errors?

Runtime Error 1004

unable to set the locked property of the range class

 

[Fluff]

In that case the sheet is protected & you will need to unprotect it like

ActiveSheet.Unprotect

and at the end of the code put

ActiveSheet.Protect

 

[test3xc31]

In that case the sheet is protected & you will need to unprotect it like

ActiveSheet.Unprotect

and at the end of the code put

ActiveSheet.Protect

Face Palm! Thankyou! **** thats annoyed me!

 

[Fluff]

You're welcome & thanks for the feedback