The Named Ranges were ambiguous (some were duplicated on worksheets imported
from another workbook)
... after some judicious deleting of named ranges all is OK

Thanks for the help

Regards
JIm


"Jim" wrote in message
...
This piece of code throws up 'error 380'

Private Sub cbMains8_Change()
cbDish8.RowSource = cbMains8 ' error produced here
cbDish8.ListIndex = -1
End Sub

This piece of code does not throw up an error

Private Sub cbMains7_Change()
cbDish7.RowSource = cbMains7
cbDish7.ListIndex = -1
End Sub

What does error code 380 indicate

TIA

Jim


__________ Information from ESET NOD32 Antivirus, version of virus
signature database 4311 (20090806) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com






__________ Information from ESET NOD32 Antivirus, version of virus signature database 4311 (20090806) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com