Unprotecting a sheet in a function

Thanks for the reply.

But i dont see how this helps my problem.

Im not getting any error message. I must be doing something wrong but every time i add validation to a cell using a function it wont work and i asume its because the sheet is protected. When i step through the code it runs fine until i get to the validation line. The sheet will not unprotect itsself when it gets to the activesheet.unprotect line.

The code i sent you was something i just made up to demonstate my problem.

This is a little project work have set me.

On the sheet there are various drop down lists with validation in them.

The ones im using in this function are these cells: BSEN, CType and OtherBSEN.

I wont send you all the code because there is alot of it but here is a bit of it.

Private Function HiddenDevice(BSEN, CType, OtherBSEN)

Select Case BSEN

Case "88"

CType.Validation.Delete
CType.Validation.Add Type:=xlValidateList, _ Formula1:="=INDIRECT(""DB_DAT!$M$288"")"

End Select

Exit Function

End Function


When the sheet is unprotected it runs through all the code with no problems.
When i protect it it gets to CType.Validation.AddType:=xlValidateList, _ Formula1:="=INDIRECT(""DB_DAT!$M$288"")"

the code just stops with no error messages.
It runs the line before it which is the delete validation.

DB_DAT is another sheet where the data comes from, ive also tried getting data from the same sheet as im working on but that doesnt work either.