Error '91' en tiempo de ejecución: variable de objeto o con la variable de bloque no establecida

Buenos dias

Tengo un formulario con 10 OptionButtons cada uno dirigido a una hoja del mismo libro, intento hacer una busqueda usando el siguiente codigo, pero me da Error '91' en tiempo de ejecución: variable de objeto o con la variable de bloque no establecida.

¿alguien podria ayudarme?

Private Sub ComboBox3_Change()

With ActiveSheet

var3 = ComboBox3.Column(0)

Cells.Find(What:=ComboBox3.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _

xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

, SearchFormat:=False).Activate

If var3 = ActiveCell Then

TextBox15.Value = ActiveCell.Offset(0, 1)

TextBox7.Value = ActiveCell.Offset(0, 2)

TextBox22.Value = ActiveCell.Offset(0, 3)

TextBox13.Value = ActiveCell.Offset(0, 4)

TextBox19.Value = ActiveCell.Offset(0, 5)

TextBox14.Value = ActiveCell.Offset(0, 6)

TextBox20.Value = ActiveCell.Offset(0, 7)

TextBox16.Value = ActiveCell.Offset(0, 8)

TextBox17.Value = ActiveCell.Offset(0, 9)

TextBox18.Value = ActiveCell.Offset(0, 10)

TextBox3.Value = ActiveCell.Offset(0, 11)

TextBox23.Value = ActiveCell.Offset(0, 12)

End If

End With

End Sub