help with vba for excel code

[dreamz Veteran]

i keep getting a type mismatch error. what did i do wrong?

note, i declared tricor and oos as ranges.

If radOverall Then
    
    If chTricor Then
        Set Tricor = Range("RankTricorAll")
        TricorCount = 1
    Else
        Set Tricor = shRankings.Range("B3      TricorCount = 0
    End If
    
    If chOOS Then
        Set OOS = Range("RankOOSAll")
        OOSCount = 1
    Else
        Set OOS = shRankings.Range("B3      OOSCount = 0
    End If

shRankings.Range("AverageAll").Formula+ OOS

End If

thanks.

edit: i know what i was doing wrong, but i couldn't find a way to fix it. so i just coded it so that it would change the named ranges. it's not pretty, but it works. ah well.