Как формулу превратить в статическое значение?

Public Function Rashot(n As Integer, l As Date) As Integer
'1
'Range("A3").Value = Date
'2
'Cells(1, 3).Value = Cells(1, 3).Value
'3
Dim formula As String
formula = l
 
Range("A3").Select
'SetActiveCell(A3, False)
Range("A3").Activate
ActiveCell.FormulaR1C1 = "=TODAY()"
'4
'Range("A3").FormulaLocal = "=СЕГОДНЯ()"
'5
'Range("A3").Value = Range("A3").Value
Rashot = n
End Function

Public changelist As New Collection
 
Private Sub Worksheet_Calculate()
    Dim cell As Range
    If changelist.Count Then
        On Error Resume Next
        Application.Calculation = xlCalculationManual
        For Each cell In changelist
            cell.Value = cell.Value
        Next
        Set changelist = Nothing
        Application.Calculation = xlCalculationAutomatic
    End If
End Sub
Function FixValue(cond&, retval)
      If cond Then changelist.Add Application.ThisCell
      FixValue = retval
End Function

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Dim cell As Range
    If changelist.Count Then
        On Error Resume Next
        Application.Calculation = xlCalculationManual
        For Each cell In changelist
            cell.Value = cell.Value 'фиксация значений
        Next
        Set changelist = Nothing    'очищаем коллекцию после фиксации значений
        Application.Calculation = xlCalculationAutomatic
    End If
End Sub

Function FixValue(cond&, retval)
      If cond Then changelist.Add Application.ThisCell
      FixValue = retval
End Function

Function FixValue(cond As Long, retval)
'либо так:
Function FixValue(cond&, retval)

Function FixValue(cond As Long, retval As Variant)

fnc123 (a), byVal b, c