Не понимаю, как передать в процедуру аргумент типа Range

Option Explicit
 
Sub Version3()
 
Worksheets("1").Activate
 
Dim res As Range
Set res = Selection
Dim i As Range
 
For Each i In res.Columns
    Promah (i.Cells)
Next
 
End Sub

Option Explicit
 
Function Grubs(n As Integer, q As Integer) As Double
 
If q <= 5 Then
    Grubs = Sheets("Критерий Граббса").Cells(n, 2).Value
Else
    Grubs = Sheets("Критерий Граббса").Cells(n, 3).Value
End If
 
End Function
 
Function CountNotBlank(target As Range) As Integer
Dim c As Integer
c = 0
For Each i In target.Cells
    If Not IsEmpty(i) Then
        c = c + 1
    End If
Next
CountNotBlank = c
End Function
 
Sub Promah(results As Range)
 
Dim n As Integer, q As Integer
Dim sred As Double, SKO As Double, SKO_sr As Double, G1 As Double, G2 As Double, Gt As Double, max As Double, min As Double
Dim Promah As Boolean
 
q = 4
 
Do
    n = CountNotBlank(results.Cells)
    Promah = False
    sred = WorksheetFunction.Average(results.Cells)
    SKO = WorksheetFunction.StDev_P(results.Cells)
    SKO_sr = SKO / Sqr(n)
    min = WorksheetFunction.min(results.Cells)
    max = WorksheetFunction.max(results.Cells)
    G1 = Abs(max - sred) / SKO
    G2 = Abs(sred - min) / SKO
    
    Gt = Grubs(n, q)
    
    If G1 > Gt Then
        For Each res In results.Cells
            If (res = max) Then
                res.ClearContents
                Promah = True
            End If
        Next
    End If
    
    If G2 > Gt Then
        For Each res In results.Cells
            If (res = min) Then
                res.ClearContents
                Promah = True
            End If
        Next
    End If
Loop While Promah = True
 
End Sub

Option Explicit
 
Sub Version3()
    Dim i As Range, res As Boolean
 
    Worksheets("1").Activate
    For Each i In Selection.Columns
        Call PromahSub(i.Cells)
        PromahSub i.Cells
        res = PromahFun(i.Cells)
    Next
End Sub
 
Sub PromahSub(R As Range)
    MsgBox R.Address
End Sub
 
Function PromahFun(R As Range) As Boolean
    PromahFun = False
    MsgBox "Функция  " + R.Address
End Function

Call Процедура(a, b)
Call Функция(a, b)
Процедура a, b
Функция a, b
c = Функция(a, b)
c = Функция()  'без аргументов
set с = функция 'без аргументов, ф-ция возвращает объект

Exit Function