Find function and Intersect

Hey Guys,

I'm trying to use the .Find function to find a specific value 'tbName' in a Range that I set in the worksheet: "Income"

the error is "application defined or object defined error" on the 'Set' line.

I want Rng to be the Cell address where the tbName value is found

Set wks = Worksheets("Overview 2011")

' frmAddNewItem.cboType.Value="Income"     
Set Rng = wks.Range(frmAddNewItem.cboType.Value).Find(frmAddNewItem.tbName.Value).Address