objMail.Importance = 2 'olImportanceHigh

.HTMLBody = ConvertRngToHTM(Range("C7:E9"))

.Subject = "Магазин № " & Range("D16").value

=ФИЛЬТР($B$12:$B$32;НЕ(ЕОШ(ПОИСК($E$6;$B$12:$B$32)));"")

rs = objExcel.ActiveWorkbook.Sheets(1).Cells(objExcel.ActiveWorkbook.Sheets(1).Rows.Count, 1).End(xlUp).Row

With objExcel.ActiveWorkbook.Sheets(1)
rs = .Cells(.Rows.Count, 1).End(xlUp).Row
end with

const xlUp& = -4162

=ЕСЛИОШИБКА(ИНДЕКС(Таблица1;НАИМЕНЬШИЙ(ЕСЛИ($G$6=ДВССЫЛ("Таблица1[[Название ]]");СТРОКА(Таблица1[[Название ]])-4);СТРОКА(A1));СТОЛБЕЦ(A1));"")

ActiveWorkbook.Names("Лист1!tttt")

Sub NamesWsToWb()
    Dim ws As Worksheet, nn As Name
    For Each ws In Worksheets
        For Each nn In ws.Names
            Call SheetNameToWorkbookName(nn)
        Next
    Next
End Sub
'чуть изменим код Владимира
Function SheetNameToWorkbookName(nn As Name)
  Dim arr
  arr = Split(nn.Name, "!")
  If UBound(arr) > 0 Then
    ActiveWorkbook.Names.Add arr(UBound(arr)), RefersTo:=nn.RefersTo
    nn.Delete
  End If
End Function

range("_name").address

worksheets(1).range("_name").address

=СУММПРОИЗВ(СУММЕСЛИ(ДВССЫЛ({"Январь":"Февраль":"Март"}&"!A3:A100");A2;ДВССЫЛ({"Январь":"Февраль":"Март"}&"!C3:C100")))

=СУММПРОИЗВ(ЕЧИСЛО(ПОИСК(A1:A14;A1:A14))*(ПОИСКПОЗ(A1:A14;A1:A14;)=СТРОКА(A1:$A14)-(СТРОКА(A1)-1)))<>СУММПРОИЗВ(--(A1:A14<>""))