Paso de valores por Function

Saludos a todos, se me presento un pequeñísimo inconveniente, necesito pasar un valor resultante de una Function. Acá dejo un código que ilustra lo que necesito.
Sub macro11_formato3()
    filas = contar_llenas11("Hoja 1r")
    MsgBox (filas)
End Sub
Function contar_llenas11(sh As String) As Integer
    i = 2
    Do While Sheets(sh).Cells(i, 3).Value <> Empty
        i = i + 1
    Loop
    i = i - 1
End Function
Al imprimir el valor me resulta 0.
Muy agradecido de antemano.