Du behöver specificera vilken cell det är du skall läsa från, t.ex.

i = Blad1.Cells(rad, kolumn).Value

där "rad" och "kolumn" är räknare som innehåller rad- resp. kolumnnummer.

Du kan även göra som du har gjort i ditt exempel och då loopar du igenom alla celler i en viss range (inte hela bladet, det tar för lång tid). OM du inte är säker på datatypen i cellen så bör det fungera stt skriva så här:

    Dim c As Range
    For Each c In Blad1.Range("A1:B10").Rows
        i = Blad1.Cells(c.Row, c.Column)
    Next c