Variable de objeto o bloque whit no establecido

Ando por aqui de nuevo con ganas de aprender, me gustaría me apoyaran con un Tema que tengo.

Estos haciendo un userform en el cual coloca anticipos de gastos pero estos son reverenciados a una base de datos previa, es decir primero se tiene que capturar el evento con un siento ID y al cargar los gastos de ese id se reverencian al mismo, al capturar el gasto en el user y darle guardar busca en la hoja 2 la referencia de evento, si no la encuentra no permite capturar el gasto. Pero para esto me sale un error 91 en tiempo de ejecución, variable de objeto o bloque whit no establecido.

Dejo mi codigo completo.

Private Sub CommandButton1_Click()

Hoja2.Select

                                           ESTO ES LO QUE ME SEÑALA EN EL ERROR
If Cells.Find(What:=TextBox3.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate = False Then
MsgBox ("referencia de cliente no capturada"), vbCritical, "Falta calturar viaje"
Else
Sheets("Control de gastos").Select
Range("a1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = DTPicker1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ComboBox1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TextBox2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ComboBox2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TextBox1
End If
End Sub

Private Sub UserForm_Initialize()
Sheets("Control de gastos").Select
Range("xew1").Select
Do While ActiveCell <> Empty
ComboBox1.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop

Sheets("Control de gastos").Select
Range("xex1").Select
Do While ActiveCell <> Empty
ComboBox2.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
End Sub