Macro buscar una palabra en combobox

¿A qué te refieres con no permitir seguir?
¿Quieres qué no busque algo? ¿Qué bloquee algo?, ¿Qué se cierre?
Igual puedes poner tu código para que podamos entender precisamente que es lo que quieres.

yo lo tengo así

Private Sub ComboBox1_Change()

If Me.ComboBox1 = "Gastos Enero" Then
MsgBox "Debe de ser un ingreso...", vbExclamation, "EXCELeINFO"
Me.ComboBox1 = "Seleccionar"

end sub

lo que quiero es, al hacer el cambio nomas detecte que haya la palabra "gasto" porque el mes va variar arroje un msgbox que diga que tiene que ser un ingreso

es que así como lo tengo debo de hacer ese código para cada mes 

¿Y cómo cargas esos valores al combobox?

Bueno voy a estar ocupado un buen rato y no se si pueda ayudarte más tarde. Así que lo único que se me ocurre por el momento es algo así:

Private Sub ComboBox1_Change()
Dim a As String
Dim b
a = ComboBox1.Value
b = Split(a, " ")
If b(0) = "gastos" Then
MsgBox "Debe de ser un ingreso..."
End If
End Sub

de las hojas que tengo

Private Sub UserForm_Initialize()

Dim I As Long
Me.ComboBox1.Clear
Me.ComboBox2.Clear
For I = 1 To Sheets.Count
Me.ComboBox1.AddItem Sheets(I).Name
Me.ComboBox2.AddItem Sheets(I).Name
Next
Me.ComboBox1.Value = ActiveSheet.Name
Me.ComboBox2.Value = ActiveSheet.Name

End Sub

Prueba la macro y me avisas.

muchas gracias, pero fíjate que no me resulto

¿Te salió error?