combobox

[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

 

[steve]

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...

 

[Tom Ogilvy]

Better would be:

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

 

[steve]

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...

 

[Tom Ogilvy]

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

Really doesn't require much explanation.