Function putval(i As Integer) As Variant
putval = ""
ad = Application.Caller.Address
If i = 123 And ad = "$D$3" Then putval = 125
If i = 124 And ad = "$E$3" Then putval = 125
If i = 177 And ad = "$AH$3" Then putval = 125
End Function

So put =putval(A1) in D3 and E3 and AH3
Then set A1 accordingly.
--
Gary''s Student - gsnu200741


"DA_Potts" wrote:

I want to use/create a function whereby if a value is equal to one number the
data i enter will go into one of a series of cells
example - if the value is 123 then the value of cell d3=125, if the vale is
124 the value of cell e3=125, if the value is 177 then the value of cell
ah3=125. Any suggestions?