Thanks Rick,

I changed it to:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
HideBars (xlOff)
End Sub

Private Sub Workbook_Open(Cancel As Boolean)
HideBars (xlOn)
End Sub

But I'm still getting the same error....any ideas?

I don't use the drop down because it never seems to work right, its probably
the way I'm using it.