Public Function Trim_string(Rang_of_words_4_trim As Range, _
                            Rang_2_trim As Range) As String
    
    Dim str_tmp, str1 As String
    Dim i, pos As Integer
    Dim irange As Range
    Dim Rang_of_words_4_trim As Variant ' диапазон имён
    
    Rang_of_words_4_trim = Array("г. ", "адм. ", "п. ", "ул. ", "д. ", "к. ", "стр. ", "ст. ", "с. ")
    
    str1 = Rang_2_trim.Value
    
    For Each irange In Rang_of_words_4_trim
    
        If InStr( 1 , str1, irange) Then
next_iteration:
            If str_tmp <> "" Then str1 = str_tmp
            
                str15 = Mid(str1, InStr( 1 , str1, irange) + _
                        Len(irange),  1 )
                
                 If Mid(str1, InStr( 1 , str1, irange) + _
                        Len(irange),  1 ) = " " Then
                    'irange = irange
                    
                    pos = InStr( 1 , str1, irange) + Len(irange)
                    
                    str_tmp = Mid(str1,  1 , pos -  1 ) + _
                        Mid(str1, pos +  1 , Len(str1))
                    
                 GoTo next_iteration
                 
            End If
        'irange = irange
        End If
    
    Next
    
    Trim_string = str1

End Function