combobox

  • Thread starter Thread starter scrabtree
  • Start date Start date
S

scrabtree

It is a combobox from the controls toolbar. Below is the
change event code I have wrote. The program keeps
stopping, thought, and highlighting: "cmbcc.RowSource =
Sheets("Coding").Range("B4:B12")"




Private Sub cmbmajorarea_Change()
If cmbmajorarea.Value = "Environmental" Then
cmbcc.RowSource = Sheets("Coding").Range("B4:B12")
Else
cmbcc.Value = "2"
End If
End Sub
 
Rowsource needs to be text.

so try:
cmbcc.RowSource = Sheets("Coding").Range("B4:B12").Address

or
cmbcc.RowSource = "Coding!" & Sheets("Coding").Range("B4:B12").Address

make sure it is all on one line...
 
Better would be:

cmbcc.RowSource =
Sheets("Coding").Range("B4:B12").Address(external:=True)
 
Tom,

Thanks for the input but I am not familiar with using 'extermal' reference.

The help file on this is skimpy, could you explain this to me?

Thanks...
 
? Range("A1").Address(External:=True)
[Book1]Sheet1!$A$1

Really doesn't require much explanation.
 
Back
Top