Ayuda con función para obtener última celda con valor...

Buen día, estoy tratando de implementar la siguiente función para recorrer columnas hacia la derecha y que me devuelva la posición de la última celda que contiene un valor, hace el recorrido bien y me devuelve la posición pero al salir de la función siempre me marca el error (91)-Variable de objeto o bloque with no establecido.



Observación, si este código lo ejecuto como Sub y muestro el resultado con MsgBox funciona, pero si lo pongo como Function el resultado de la llamada es el que genera el error...



Podrían hacerme el favor de indicarme ¿cuál podría ser el error?



Public Function getLastCol(initCell As String) As String

Dim iCont As Byte

Dim strTmp As String



iCont = 1

Range(initCell).Select 'También se puede con Activate

While ActiveCell.Value <> "" And iCont <= 31

strTmp = ActiveCell.Address

Cells(ActiveCell.Row, ActiveCell.Column + 1).Select

iCont = iCont + 1

Wend

getLastCol = strTmp

End Function