cbMains8 and cbDish8 are a pair of ComboBoxes on a Userform
The RowSource of cbMains8 is a named range containg other named ranges

I am attempting to change the RowSource of cbDish8 when cbMains8 changes

If I change the RowSouce to cbMains7 there is no error !!!

Can the Rowsource be set to a combobox permanently or once when
initilialzing the form ?

Regards & TIA


"Joel" wrote in message
...
There may be someting else in the variable besides a number

Private Sub cbMains8_Change()
if not cbMains8 is nothing then
if isnumeric(cbMains8) then
cbDish8.RowSource = cbMains8 ' error produced
here
cbDish8.ListIndex = -1
end if
end if
End Sub


"Jim" wrote:

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