Combo box error
 

Hi all, what am I doing wrong with the vb code below.
I am trying to get the rowsource from a sheet called "mainsheet"
and the range f22 to f23


If Sheet1.Range("F18").Value = 8 Then
MsgBox "8"
ComboBox1.RowSource = Sheet1.Range("F22:F31")

ComboBox1.Visible = True

End If

Thanks

Combo box error
 

It's a string property, so try

If Sheet1.Range("F18").Value = 8 Then
MsgBox "8"
ComboBox1.RowSource = Sheet1.Range("F22:F31").Address(,,,True)

ComboBox1.Visible = True

End If


--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Greg" wrote in message
...
Hi all, what am I doing wrong with the vb code below.
I am trying to get the rowsource from a sheet called "mainsheet"
and the range f22 to f23


If Sheet1.Range("F18").Value = 8 Then
MsgBox "8"
ComboBox1.RowSource = Sheet1.Range("F22:F31")

ComboBox1.Visible = True

End If

Thanks

Combo box error
 

ComboBox1.RowSource = "Sheet1!F22:F31"

HTH
--
AP

"Greg" a écrit dans le message de news:
...
Hi all, what am I doing wrong with the vb code below.
I am trying to get the rowsource from a sheet called "mainsheet"
and the range f22 to f23


If Sheet1.Range("F18").Value = 8 Then
MsgBox "8"
ComboBox1.RowSource = Sheet1.Range("F22:F31")

ComboBox1.Visible = True

End If

Thanks

Combo box error
 

Thanks Bob and Ardus

It working well now.

Greg
"Greg" wrote in message
...
Hi all, what am I doing wrong with the vb code below.
I am trying to get the rowsource from a sheet called "mainsheet"
and the range f22 to f23


If Sheet1.Range("F18").Value = 8 Then
MsgBox "8"
ComboBox1.RowSource = Sheet1.Range("F22:F31")

ComboBox1.Visible = True

End If

Thanks