Function День360(дата1 As Date, днейМежду As Long) As Date
Dim n&, p&, count_n&
  День360 = дата1 + Round(днейМежду * 1.015) 'оценка
  n = 0
  count_n = 0
  Do
    count_n = count_n + 1
    If count_n >= 10 Then Exit Function
    n = WorksheetFunction.Days360(дата1, День360, 1) - днейМежду
    If n = 0 Then
      If Day(День360) = 31 Then День360 = День360 - 1
      Exit Function
    ElseIf n > 0 Then
      If p >= 0 Then
        День360 = День360 - 1
        p = 1
      Else
        днейМежду = днейМежду - 1
        p = 1
        'Exit Do
      End If
    Else
      If p <= 0 Then
        День360 = День360 + 1
        p = -1
      Else
        'Exit Do
        днейМежду = днейМежду - 1
        p = 1
      End If
    End If
  Loop
  День360 = -1 'ошибка
End Function

  >05.04

.AddItem Replace("текст1" & Chr(10) & "цифры", Chr(10), "")

Sub Range_to_Picture()
    Dim sName As String, wsTmpSh As Worksheet

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With Sheets("Sheet1").Range("ИменованныйДиапазон1")
        .CopyPicture
        Set wsTmpSh = ThisWorkbook.Sheets.Add
        sName = ActiveWorkbook.FullName & "_" & ActiveSheet.Name & "_Range"
        With wsTmpSh.ChartObjects.Add(0, 0, .Width, .Height).Chart
            .ChartArea.Border.LineStyle = 0
            .Parent.Select
            .Paste
            .Export Filename:=sName & ".png", FilterName:="png"
            .Parent.Delete
        End With
    End With
    wsTmpSh.Delete
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub