Se requiere objeto en formulario

Tengo esta macro enmi formulario y cuando la ejecuto me dice se requiere objeto, nose aqie se dena alguien porfavor que me pueda ayudar

Private Sub cmbEncabezado_Change()

Me.lblFiltro = "Filtro por " & Me.cmbEncabezado.Value

End Sub

'

'Cerrar formulario

Private Sub CommandButton2_Click()

Unload Me

End Sub

'

'

'Mostrar resultado en ListBox

Private Sub CommandButton5_Click()

On Error GoTo Errores

If Me.txtFiltro1.Value = "" Then Exit Sub

Me.ListBox1.Clear

Columna = Me.cmbEncabezado.ListIndex

j = 1

Filas = Range("a1").CurrentRegion.Rows.Count

For i = 2 To Filas

    If LCase(Cells(i, j).Offset(0, CInt(Columna)).Value) Like "*" & LCase(Me.txtFiltro1.Value) & "*" Then

        Me.ListBox1.AddItem Cells(i, j)

        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1)

        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 2)

        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 3)

    Else

    End If

Next i

Exit Sub

Errores:

MsgBox "No se encuentra.", vbExclamation, "aviso"

End Sub

'

'Activar la celda del registro elegido

Private Sub ListBox1_Click()

Range("a2").Activate

Cuenta = Me.ListBox1.ListCount

Set Rango = Range("A1").CurrentRegion

For i = 0 To Cuenta - 1

    If Me.ListBox1.Selected(i) Then

        Valor = Me.ListBox1.List(i)

        Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate

    End If

Next i

End Sub

'

'Dar formato al ListBox y traer los encabezados de la tabla

Private Sub UserForm_Initialize()

'

For i = 1 To 4

    Me.Controls("Label" & i) = Cells(1, i).Value

Next i

'

With Me

    .ListBox1.ColumnCount = 4

    .ListBox1.ColumnWidths = "60 pt;60 pt;60 pt;60 pt"

    .cmbEncabezado.List = Application. Transpose(ActiveCell. CurrentRegion. Resize(1). Value)

    .cmbEncabezado.ListStyle = fmListStyleOption

End With

End Sub