Private Sub Workbook_Open()
Set WF = WorksheetFunction
End Sub

Public WF As New WorksheetFunction
Public Ap As New Application

'Без доп.перемененных
Sub sfnsfgnsgn()
    Debug.Print Application.Caller    '"Овал 2"
    Debug.Print Application.Max(2, 3) ' 3
End Sub

'Вариант 1
Public Ap As Application
Sub sfnsfgnsgn()
    Set Ap = Application     'Приходиться писать Set
    Debug.Print Ap.Caller    'Овал 2"
    Debug.Print Ap.Max(2, 3) ' 3
End Sub

'Вариант 2
Public Ap As New Application
Sub sfnsfgnsgn()
    'Уже без Set, но Caller не работает
    Debug.Print Ap.Caller    '"Error 2023"
    Debug.Print Ap.Max(2, 3) ' 3
End Sub

'Вариант 1
VibrnParam = WorksheetFunction.Max(1, WorksheetFunction.Min(3, VibrnParam + KC))
'Вариант 2
VibrnParam = WF.Max(1, WF.Min(3, VibrnParam + KC))

Public CoStS() As ColorStops   'Cells(1).Interior.Gradient.ColorStops
Public CoSt() As ColorStop     'Cells(1).Interior.Gradient.ColorStops(1)
Public TxRng() As TextRange2   'ActiveSheet.Shapes(k).TextFrame2.TextRange
Public FilFor() As FillFormat  'ActiveSheet.Shapes(k).Fill
Public ColFor() As ColorFormat 'ActiveSheet.Shapes(k).Fill.GradientStops(1).Color

Option Explicit

Public Function wf() As WorksheetFunction
    Set wf = WorksheetFunction
End Function

Sub test()
    Debug.Print wf.Sum(23, 17, 20)    '= 60
End Sub