[erro no codigo abaixo]

[erro no codigo abaixo]

Private Sub btbusca_Click()
If Me.Txtbusca.Value = "" Then
MsgBox "Digite o nome do cliente!"

End If
Exit Sub

ultimodado = Cadastro_Cliente.Range("B" & Rows.Count).End(xlUp).Row
List = Clear
Lista.RowSource = Clear
y = o
For linha = 4 To ultimodado

nome = ActiveSheet.Cells(linha, 2).Value
If nome Like Me.txtnome.Value Then
Me.Lista.AddItem
Me.Lista.List(y, 0) = ActiveSheet.Cells(linha, 1).Value
Me.Lista.List(y, 1) = ActiveSheet.Cells(linha, 2).Value
Me.Lista.List(y, 2) = ActiveSheet.Cells(linha, 3).Value
Me.Lista.List(y, 3) = ActiveSheet.Cells(linha, 4).Value
Me.Lista.List(y, 4) = ActiveSheet.Cells(linha, 5).Value
Me.Lista.List(y, 5) = ActiveSheet.Cells(linha, 6).Value
Me.Lista.List(y, 6) = ActiveSheet.Cells(linha, 7).Value
Me.Lista.List(y, 7) = ActiveSheet.Cells(linha, 8).Value
Me.Lista.List(y, 😎 = ActiveSheet.Cells(linha, 9).Value
Me.Lista.List(y, 9) = ActiveSheet.Cells(linha, 10).Value
Me.Lista.List(y, 10) = ActiveSheet.Cells(linha, 11).Value
Me.Lista.List(y, 11) = ActiveSheet.Cells(linha, 12).Value
Me.Lista.List(y, 12) = ActiveSheet.Cells(linha, 13).Value

y = y + 1

End If

End Sub

Na hora de faz de fazer a busca da o seguinte erro " For sem next"