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

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

Invalid Property Value ?? Check the type and value of cbMains8. To isolate
change the reference to cbMains7 and if this 'fixes' it, then defo invalid
value.

--

Regards,
Nigel




"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

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

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