Constant with range value

[YasserKhalil]

I have a code and in a line there is a constant
<code style="white-space: nowrap;"><code>
</code></code>

Private Const MAX_USES As Long = 1000

I'd like to know is it possible to link the value 1000 to a cell say F1 instead of typing 1000
I tried but failed....

 

[YasserKhalil]

If you are currently useing the constant MAX_USES, you could replace that with a function.

Function MAX_USES() As Long
    MAX_USES = Val(CStr(Sheet1.Range("F1").Value))
    If MAX_USES <= 0 Then MAX_USES = 1000
End Function

The existing code won't need to be changed at all.

This is the solution of my problem
Thanks a lot for all of you
You helped me a lot