te paso un ejemplo

Excel.Workbooks.Open xlFilenameGerentes
    Set xlWorkbook = Excel.ActiveWorkbook
    Set xlSheet = xlWorkbook.ActiveSheet
    row = 1
    count = 1
    With xlSheet
        Dim doc As New notesdocument(db)
        While Not .cells(row,1).value=""
            Print Str(count)
            count = count +1
            Set doc = db.CreateDocument '// ' Creamos un nuevo documento
            doc.Form = "F011"
            doc.Catergoria = .Cells( row, 1 ).Value
            doc.Cadena = .Cells( row, 2 ).Value
            Call doc.Save( True, True ) '// Save the new doc
            row = row + 1
        Wend
    End With

saludos

Realmente no existe una instrucción EOF como puede haber en un flujo de lectura de C/C++ o Java.

Debes estructurar tus hojas excel y leer en base a esa estructura. 

En tu caso, deduzco que no conoces la estructura, con lo que puede ser buena idea definir un número mínimo de filas vacías consecutivas para dictaminar el fin de la hoja. Esto se puede combinar fácilmente con el código que propone Juan Carlos.

Saludos

Javier_Sanchez@dominoplus.es