Institute of Inf. Tech. - Informatikai intézet

Function teszt(CellRange As Range)
    MsgBox ("Welcome")
    
    Dim rCell As Range
    Dim sum As Integer
    
    For Each rCell In CellRange
        sum = sum + rCell.Value
    Next rCell
    teszt = sum
End Function