Sub proba()
    Dim rng As Range
    Set rng = Range(Cells(1, 1), Cells(9, 1))
    MsgBox Saberi(rng)
End Sub