run time error while using unprotect

[acmehra]

Hi Friends ,

I am trying to unprotect and worksheet from another worksheet of same file when user selects a value from dropdown combobox. System gives runtime error 5 "invalid procedure or argument "

Part of my code is :

Sub ChangeSellDataSource()
With ActiveSheet.Shapes("DD_Sell").ControlFormat
   dd_val = .List(.ListIndex)
   Sheets(dd_val).Unprotect   

  Set Data_sht = ThisWorkbook.Worksheets(dd_val) 
 Set Pivot_sht = ThisWorkbook.Worksheets("reports")

Here DD_Sell is the name of my combobox and it contains the list of named ranges. Named range text is same as that of worksheet name.

 

[HackSlash]

It's not clear what workbook you are working on here. You need to add the workbook to that sheets callout.

Like this:

    ThisWorkbook.Sheets(dd_val).Unprotect

Or this:

    Workbooks(workbookname).Sheets(dd_val).Unprotect

What line are you getting the error on?