Cacher is the code snippet organizer for pro developers

Function calc(x As Integer) As Long

calc = (x) ^ 2 + 5 * (x) + 6

End Function

Sub Calcuationz()

Dim rng, cel As Range
Dim x As Integer

Set rng = Selection

For Each cel In rng
    x = cel.Value
    cel.Offset(, 1).Value = calc(x)
Next

End Sub