Cannot get Range to pass into Function

Hello, thank you for your help.

I am attempting to call a Function from a cell and pass it a range and an Integer. The Integer works fine, but I cannot get the Range to pass into the function correctly.

'This code is from the cell  **doesn't work, i get "#NAME?"
=BS(JuneAll,3)
'also tried:
=BS("A1:G26",3)

'I have also tried calling it from a button_click:
Private Sub CommandButton1_Click()
    Range("V8") = BS(Range("A1:G26"), 3)
End Sub


Function BS(rng As Range, iRow As Integer)
    'Test operations
    countt = 0
    With Sheets("Utilization").Range(rng).Rows(iRow).Select
        For Each c In Selection
            If c.Interior.ColorIndex = 37 Then countt = countt + 1
        Next
    End With
    BS = countt
End Function

If I remove the ".Range(rng)" the code works but for the entire Row and not just the portion of the row inside my Range.

If I replace ".Range(rng)" with ".Range("A1:G26")" it works correctly.

Part 2:

When it is working through the button_click, it still does not work when called directly from a cell why is that?

Herre is the code referenced in the cell:

=BS(Range("A1:G26"), 3)

Can anyone help? thx

Do you have any other ideas how to accomplish this?

Even if I kept it within 1 function (to return 1 value), is there a way I can get the Range to pass from the cell when the function is called into the function?

Thanks for your help, appreciate it!

Thank You both for your help. Your code works correctly, however I am still having problems calling the code from within a cell, but it works when called through a button.

Here's the code within the button:
Range("w16") = BS(Range("A1:G26"), 3)

Here's the code within the cell:
=BS(A1:G26,3)
I have also tried:
=BS(Range("A1:G26"),3)
=BS(Range(A1:G26),3)

The button returns "2" (which is correct)
The cell says "#REF!"

Any ideas?