hello,

I have a private sub that will automatically active when cell F5 change. Is there any way that convert this macro to public sub so that I can activate it when I hit a form button? this is my code

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("F5")) Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
    
    Dim bottomC As Integer
    
    bottomC = Range("J" & Rows.Count).End(xlUp).Row
    
    Dim x As Long
    
    For x = bottomC To 10 Step -1
    
If Not (Cells(x, "J") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" Or Cells(x, "D") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" Or Cells(x, "E") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" Or Cells(x, "F") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" Or Cells(x, "G") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" Or Cells(x, "H") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" Or Cells(x, "L") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" Or Cells(x, "N") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" _
Or Cells(x, "D") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" Or Cells(x, "E") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" Or Cells(x, "F") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" Or Cells(x, "G") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" Or Cells(x, "H") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" Or Cells(x, "J") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" Or Cells(x, "K") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" Or Cells(x, "N") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" _
Or Cells(x, "D") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" Or Cells(x, "E") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" Or Cells(x, "F") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" Or Cells(x, "G") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" Or Cells(x, "H") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" Or Cells(x, "L") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" Or Cells(x, "K") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" Or Cells(x, "N") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" _
Or Cells(x, "D") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" Or Cells(x, "E") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" Or Cells(x, "F") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" Or Cells(x, "G") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" Or Cells(x, "J") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" Or Cells(x, "L") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" Or Cells(x, "K") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" Or Cells(x, "N") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" _
Or Cells(x, "D") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" Or Cells(x, "H") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" Or Cells(x, "F") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" Or Cells(x, "G") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" Or Cells(x, "J") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" Or Cells(x, "L") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" Or Cells(x, "K") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" Or Cells(x, "N") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" _
Or Cells(x, "D") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" Or Cells(x, "H") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" Or Cells(x, "E") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" Or Cells(x, "G") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" Or Cells(x, "J") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" Or Cells(x, "L") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" Or Cells(x, "K") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" Or Cells(x, "N") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" _
Or Cells(x, "D") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*" Or Cells(x, "H") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*" Or Cells(x, "E") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*" Or Cells(x, "G") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*" Or Cells(x, "J") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*" Or Cells(x, "L") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*" Or Cells(x, "K") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*" Or Cells(x, "F") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*") Then

            Rows(x).EntireRow.Hidden = True
        End If
    Next x
    If Range("F5") = "" Then
        ActiveSheet.Cells.EntireRow.Hidden = False
    End If
    Application.ScreenUpdating = True
    

        
End Sub
Thanks