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