VBA: ошибка 13 Несоответствие типов: дата и целое число варианта

Question

Доброе утро, сообщество,

Dim AllDatesRange As Range
Dim r As Range, RC As Range, rAdd As String
Dim c As Range, rcAdd As String
Dim AddedInterval As Boolean
Dim OneRowInterval As Boolean
Dim FinalDailycallsTaken As Long, FinalDailyCallDuration As Long
Dim HeadTimeInterval As clsTimeInterval, WBPath As String, DeleteWB As Workbook
Dim WB As Workbook, WBName As String, ActWBName As String
Dim StartDate As Date, EndDate As Date, InDateRange As Boolean, TestString As String


Application.ScreenUpdating = False
EndDate = XLT.LastDayInWeek(Format(Replace(Split(ActiveWorkbook.Name, " - ")(0), ".", "/"), "mm/dd/yyyy"))
StartDate = XLT.FirstDayInWeek(Format(Replace(Split(ActiveWorkbook.Name, " - ")(0), ".", "/"), "mm/dd/yyyy"))
WBName = "Public\All other Public Folders." & Replace(Format(EndDate, "mm/dd/yyyy"), "/", ".") & ".xlsx"
If InStr(ActiveWorkbook.Name, "RAW") = 0 Then
    TestString = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & " - RAW.xlsx"
    ActiveWorkbook.SaveCopyAs TestString
    Set DeleteWB = ActiveWorkbook
    ActWBName = DeleteWB.Path & "\" & DeleteWB.Name
    DeleteWB.Close False
    Kill ActWBName

Attempts so far from previous stacks

Attempt 1

Dim EndDate as Long
EndDate = Date + 1

Attempt 2

Dim EndDate as String
Date = Format(Date + 1, "mm/dd/yyyy")

Referenced StackOverFlow posts

1. Vba Vlookup с датой возвращает ошибку несоответствия типа
2. Ошибка несоответствия типа EXCEL VBA «13» Дата назначения Тип данных для переменной
3. Дата VBA как целое число

Проблема не устранена. Я открыт для рекомендаций