excel y visual basic 2008

[chaka106]

pues miren les comento tengo un problema estoy haciendo un tipo de parser para dar formato a un archivo de excel el problema me los estoy encontrando con celdas vacias que no tienen ningun valor les muestro como lo hago:

Código:

A:
            For i = 1 To rangofinal

                If obj.Range("A" & i).Value2.ToString = "Matricula" Then
                    MsgBox("Fila eliminada " & obj.Range("A" & i).Value.ToString)
                    obj.Range("A" & i).Delete(Shift:=Excel.XlDeleteShiftDirection.xlShiftUp)
                    obj.SaveAs("c:\xls\deudorescopy.xls")
                    GoTo A
                ElseIf obj.Range("A" & i).Value2 = "" Then
                    MsgBox("Fila eliminada " & obj.Range("A" & i).Value.ToString)
                    obj.Range("A" & i).Delete(Shift:=Excel.XlDeleteShiftDirection.xlShiftUp)
                    MsgBox("Fila eliminada")
                    obj.SaveAs("c:\xls\deudorescopy.xls")
                    GoTo A
                End If

            Next

como veran cuando encuentra el valor matricula elimina la celda y recorre las celdas hacia arriba pero no logra identificar cuando es vacia me lanza un error de referencia a objeto no establecida como instancia de un objeto segun esto pasa al querer verificar esta celda vacia, alguien sabe como solucionarlo? a lo mejor es una solucion muy facil pero creo ke ya me canse de buscar y no encuentro nada