Runtime Error '1004': Unable to get the DropDowns property of the Worksheet class

Question

Private Sub SponsorList_Change()
'On Error GoTo EH
UnprotectWorksheets
Application.ScreenUpdating = False
With ActiveSheet.DropDowns("SponsorList")
Dim tmpPivotTable As PivotTable
For Each tmpPivotTable In ActiveSheet.PivotTables
tmpPivotTable.PivotFields("Sponsor").CurrentPage = .list(.ListIndex)
Next
End With
sponsorUpdateView
Application.ScreenUpdating = True
ActiveSheet.Select
ProtectWorksheets
Exit Sub
EH:
ErrorHandler
End Sub
The above code works fine with Excel 2010, but throws the error when executing the "With ActiveSheet.DropDowns("SponsorList")" statement with Excel 2013 (Windows 7 on both machines).  Also works fine with Excel 2013 in debug
mode.  Help please!

Answer 1

My testing indicates the line should work fine in xl2013. Have you got the correct worksheet activated? Try ensuring that the correct worksheet is activated by inserting the following code before the problem line.
    Worksheets("Sheet1").Select           'Edit "Sheet1" to the correct sheet name
Regards, OssieMac