Visual Basic para Aplicaciones - Identificar celda especifica de rango de datos

Hola!

Miren quiero hacer una función que reciba un rango de datos, pero luego identificar el primer elemento, el segundo, el que yo quiera de este rango de datos, independiente si le estoy pasando una columna o una fila, es decir ir recorriendo el rango y saber que celda es la primera, ya me entienden? y luego convertir ese elemento de tipo range a real.

Ojalá me puedan explicar un poco más. Muchas gracias.

Saludos,

Bull

veamos si esto te sirve...
'//By JuanC - Dic. 2007
Function FirstCell(ByVal rng As Range) As String
Dim i&, sAdd$, sLetter$, sTmp$
On Error Resume Next
If rng.Count = 1 Then
FirstCell = UCase(rng.Address(0, 0))
Exit Function
End If
sAdd = "," & UCase(rng.Address(0, 0))
For i = 1 To Columns.Count
sLetter = GetColumnId(i)
If InStr(1, sAdd, sLetter) > 0 Then Exit For
Next
sTmp = "," & sLetter
For i = 1 To Rows.Count
If InStr(1, sAdd, sTmp & i & ",") > 0 Or _
InStr(1, sAdd, sTmp & i & ":") > 0 Then
FirstCell = sLetter & i
Exit For
End If
Next
Set rng = Nothing
End Function
Private Function GetColumnId(ByVal i As Integer) As String
Dim sAlpha$, sRes$, k%
If i > Cells.Columns.Count Then Exit Function
sAlpha = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
sRes = ""
If i > 26 Then
i = i - 1
k = Int(i / 26)
sRes = Mid(sAlpha, k, i)
i = i Mod 26 + 1
End If
GetColumnId = sRes & Mid(sAlpha, i, 1)
End Function

Saludos, desde Baires, JuanC