Find function and Intersect

Hi,

Using your current methodology, it would be something like:

    Set wks = Worksheets("The correct worksheet name")
    Set rng1 = wks.Range(frmAddNewItem.cboType.Value).Find(frmAddNewItem.tbName.Value)
    
    If Not rng1 Is Nothing Then
        Set Rng2 = rng1.EntireRow.Find("January")
        
        If Not Rng2 Is Nothing Then
            MsgBox Rng2.Address
        End If
    End If