구글에서 검색하다가 한글 제외라는 VBA 코드를 발견했습니다

저는 영어만 지우려고 하는데

원래 코드가

 Option Explicit

Function 한글제외(strData As String)

    Dim i As Integer
    Dim intLen As Integer
    Dim strX As String
    Dim strTemp As String
    
    intLen = Len(strData)
    
    For i = 1 To intLen
        strX = Mid$(strData, i, 1)
        Select Case strX
            Case "ㄱ" To "ㅎ", "가" To "힣", " "
            Case Else
                strTemp = strTemp & strX
        End Select
    Next i
    
    한글제외 = Application.WorksheetFunction.Trim(strTemp)

End Function

이렇게 되있고 제 생각에는 이 코드를

 Option Explicit

Function 한글제외(strData As String)

    Dim i As Integer
    Dim intLen As Integer
    Dim strX As String
    Dim strTemp As String
    
    intLen = Len(strData)
    
    For i = 1 To intLen
        strX = Mid$(strData, i, 1)
        Select Case strX
            Case "a" To "z", " "
            Case Else
                strTemp = strTemp & strX
        End Select
    Next i
    
    한글제외 = Application.WorksheetFunction.Trim(strTemp)

End Function

로 바꾸면 될 것 같았는데 안되네요 ㅜㅜ

한글 제외 코드도 그냥 복사해서 붙여넣기 했는데 안되네요 ㅜㅜ 

아시는분들께서 가르쳐주시면 감사하겠습니다!!