Помогите пожалуйста!!!

2. В коде листа:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Len(ActiveCell.Text) = 0 Then
    UserForm1.Show
    UserForm1.TextBox1.Text = ActiveCell.Text
End If
End Sub

3. В коде формы:

Private Sub CommandButton1_Click()
Dim s As String
s = Me.TextBox1.SelText
ActiveSheet.Columns(1).AutoFilter Field:=1, Criteria1:="=*" & s & "*", Operator:=xlAnd 'фильтруем столбец "A"
End Sub