on error resume next
       For i =  0  To rst.Fields.count
            sName = rst.Fields(i).Name
            Set xlR = xlS.Range(sName & sSuf)
            If Not xlR Is Nothing Then
 'тут надо бы еще проверить имя ячейки 
            xlR = rst.Fields(i)  

?xlS.Range("$AH$33").Name.Value
=стр1!$AH$ 33 
?xlS.Range("$AH$33").Name.Name
InvNUM

Function XlPutFrRstByName(xlS As Object, rst As Recordset, Optional sSuf As String) As Boolean
 'xlS - Sheet , Rst - текущая запись 
Dim xlR As Object  '.Range 
Dim sName As String, i   As Long
    If Not (rst.EOF And rst.BOF) Then
        On Error Resume Next
        For i =  0  To rst.Fields.Count -  1 
            sName = rst.Fields(i).Name
            Set xlR = xlS.Range(sName & sSuf)
            If Not xlR Is Nothing Then
                If xlR.Name.Name <> sName & sSuf Then
                     'ошибка при обращении - не именованный диапазон 
                     'или имя<>(ссылка == sName) 
                Else
                    xlR = rst.Fields(i)
                     ' пытаемся отделить имена от ссылок 
                     '.Name=="стр1!$A$33" 
                End If
            End If
        Next i
        Set xlR = Nothing
    End If
    XlPutFrRstByName = True
End Function

Set xlR = xlS.Range(sName & sSuf)

Set xlR = xlS.Parent.Names(sName & sSuf)

Set xlR = xlS.PARENT.Names(sName & sSuf).RefersToRange