vba 같은이름 필터

Sub 필터같은예금주()
'
' 매크로1 매크로
'

' Ctrl + Shift + F
    Dim Find_Value As String

    
    Find_Value = ActiveCell.Value
    With ActiveSheet.UsedRange
        .AutoFilter ActiveCell.Column, Find_Value, xlFilterValues
    End With
End Sub
Sub 필터같은예금주모두보기()
'
' 매크로1 매크로
'

' Ctrl + Shift + A
'    Dim Find_Value As String
'
'    Find_Value = ActiveCell.Value
'    With ActiveSheet.UsedRange
'        .AutoFilter 11
'    End With
    With ActiveSheet
        If .FilterMode = True Then
            .ShowAllData
        End If
    End With
    ActiveCell.Activate
End Sub