Как объединить значение даты в строку в формуле?

Question

Я пытаюсь объединить сегодняшнюю дату в формулу, которая будет добавлена ​​в ячейку.

В строке

Cells(2, colNum).Value = "=AVERAGE(Table57[" & today & " Avg Vuln Sev Score])

Я получаю сообщение об ошибке

ошибка времени выполнения 1004: ошибка приложения или объекта

Я пытался отформатировать дату различными способами, но все возвращает ошибку. Я попытался:

• , используя + вместо &
• , оборачивая его в TEXT ()
• , оборачивая его форматом ()
• Дата выброса прямо там с & Date &
• ActiveSheet.Cells (2, colNum) .Value =

Все это выдает ошибки.

Я пытаюсь заставить его работать в формате =AVERAGE(Table57[" & Date & " Avg Vuln Sev Score]).

Sub TREG()

    Dim lnRow As Long, lnCol As Long
    Dim colNum

    colNum = WorksheetFunction.Match("Findings Variance (4/15 vs Current)", ActiveSheet.Range("1:1"), 0)
    Columns(colNum).Select

    Selection.Insert Shift:=xlToRight
    Cells(1, colNum).Value = "(Scan date) Findings Total"
    Selection.Insert Shift:=xlToRight
    Cells(1, colNum).Value = "(Scan date) AVG Vuln SevScore"

    Dim today As String
    today = Format(Date, "mm/dd/yyyy")

    Cells(2, colNum).Value = "=AVERAGE(Table57[" & today & " Avg Vuln Sev Score])"

End Sub