Primer valor no vacio de un rango

Esta función nos permite encontrar el primer valor distinto a vacío en un rango y nos devuelve su valor

Public Function Primero(Rango As Range) As Variant
    'devuelve el primer valor no vacio de un rango
    'abelorteu@informaticaea.com
 
    Dim obj_Cell As Range
    'Recorremos las celdas del rango seleccionado en busca de un valor no blanco
    For Each obj_Cell In Rango.Cells
        If obj_Cell.Text <> "" Then
            Primero = obj_Cell.Text 'Encontrado el primer valor
            Exit For 'Escapamos del FOR
        End If
    Next
End Function