Closest Value in a array

[masarup11]

Good day to all,

I have a set of fix variables

Dim arr1 = Array [{1, 2000,3000,.....}]

and was looking for the closest value, so when i input a certain number in Range("A1"), the closest value will appear in Range("B2") for example. vlookup works but was trying to learn coding and stuffs so i hope you can help me...

TIA...