Help with formatting Shorter method

[MartinLiss]

If you are going to use the method I posted you might want to change it to

Dim strTestData As String
Dim lngIndex As Long
 
strTestData = "HGy^%jbkljkklh*(^%hfhhj;'"
For lngIndex = Len(strTestData) To 1 Step -1
    If Asc(Mid$(UCase(strTestData), lngIndex, 1)) >= 65 And Asc(Mid$(UCase(strTestData), lngIndex, 1)) <= 90 Then
       ' it's OK
    Else
        strTestData = Replace(strTestData, Mid$(strTestData, lngIndex, 1), "")
    End If
Next