<div>
In re not repeating ... is that ever or just for the time that the document is open?
</div>

<div>
For example assuming it is valid for as long as the application is open then a call to getnum the source for which should be in a normal code module) &nbsp;will return a unique number within the range. 
 
For example 
msgbox(getnum) 
or 
myvar = getnum 
 
Chris 

<pre><code class="code-10 nolinks" id="code-8225218">Function getnum() As Long
Dim lngLow As Long
Dim lngHigh As Long
Dim lngNum As long
Static dict As Object

 If dict Is Nothing Then Set dict = CreateObject(&quot;scripting.dictionary&quot;)
 lngLow = 200
 lngHigh = 45000000
 lngNum = CDbl((lngHigh - lngLow + 1) * Rnd() + lngLow)
 Do While dict.exists(lngNum)
 lngNum = CLng((lngHigh - lngLow + 1) * Rnd() + lngLow)
 Loop
 dict.Add lngNum, lngNum
 getnum = lngNum

End Function
</code></pre>
</div>

<div>
Assuming you want to memorise the total usage then this will require a file copy of data ... which the following will give you. 
 
Modify the line; 
Const strFileName As String = &quot;c:\deleteme\somefile3.txt&quot; 
 
for a file path and name of your choice. 
 
Chris 

<pre><code class="code-10 nolinks" id="code-8225234">Function getnum2() As Long
Dim lngLow As Long
Dim lngHigh As Long
Dim lngNum As Long
Static dict As Object
Dim fso As Object
Dim readFile As Object
Dim strFileText As String
Dim arr As Variant
Dim itm As Variant
Const strFileName As String = &quot;c:\deleteme\somefile3.txt&quot;

 
 Randomize Now()
 Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
 If dict Is Nothing Then
 Set dict = CreateObject(&quot;scripting.dictionary&quot;)
 If Not fso.FileExists(strFileName) Then
 fso.createTextFile strFileName, False
 End If
 Set readFile = fso.OpenTextFile(strFileName, 1, False)
' Else
' fso.CreateTextFile &quot;strFileName, True
' Set readFile = fso.OpenTextFile(strFileName, False)
' End If
 If readFile.atendofstream Then
 readFile.Close
 Else
 strFileText = readFile.ReadAll
 readFile.Close
 arr = Split(strFileText, vbCrLf)
 For Each itm In arr
 If itm &lt;&gt; &quot;&quot; Then dict.Add itm, itm
 Next
 End If
 End If
 lngLow = 200
 lngHigh = 45000000
 lngNum = CLng((lngHigh - lngLow + 1) * Rnd() + lngLow)
 Do While dict.exists(lngNum)
 lngNum = CLng((lngHigh - lngLow + 1) * Rnd() + lngLow)
 Loop
 dict.Add lngNum, lngNum
 Set readFile = fso.OpenTextFile(strFileName, 8, False)
 readFile.WriteLine (lngNum)
 readFile.Close
 getnum2 = lngNum

End Function
</code></pre>
</div>

<div>
Chris 
 
This article might be helpful. 
<a href="http://www.15seconds.com/issue/051110.htm" rel="ugc">http://www.15seconds.com/issue/051110.htm</a> 
 
There are limitations in the Randomize function as well as the Rand function. &nbsp;Since this problem requires an upper limit of 45M, we can't just iterate through the series. &nbsp;:-(
</div>

<div>
Perfect! Thank you very much for your help, the function works flawlessly. 
Best regards, 
TM
</div>

<div>
aikimark 
 
I may have missed your point but the link you posted expands on the pseudo random nature of RAND. &nbsp;If I have missed the point then it simply exemplifies why as experts we should post detailed responses instead of a reference to another site without explanation. 
 
If however the repeatability of the RNG is your point then I direct you to look at the actual solution which uses a dictionary to enforce uniqueness. 
 
TM 
 
Glad to help. 
 
Chris
</div>

<div>
@Chris 
 
My comment and article reference was primarily directed at future readers and, possibly, Thomas_Meyer. &nbsp;Most developers do not understand PRNGs and think that the numbers generated are truly random. &nbsp;Regardless of their (post generated) uniqueness, there may be other 'randomness' requirements that weren't discussed in this thread prior to closure. 
 
Since we never saw a response to your context questions prior to closure, some of my concerns about the VB PRNG use (vs. expectations) and performance issues are unknown.
</div>

<div>
I've republished the VB PRNG article on EE: 
<a href="http:A_11114.html" rel="ugc">http:A_11114.html</a>
</div>

<div>
<div class="content wysiwyg-content">
Hi, 
&nbsp;help me with a macro that will generate random values¿¿? I need to get my macro when pressing &quot;random-number&quot; generated the numbers in the range from 200 to 45000000 But with the rule that generated numbers should not be repeated. The result should be displayed as &quot;Shape1&quot; the text with a colon (I attach my .ppt file). 
Thank you in advance for all your help, 
TM <a href="https://filedb.experts-exchange.com/incoming/2011/10_w41/509930/test-random-number.ppt" target="_blank" class="file-inline" title="My PP project (38 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>test-random-number.ppt</a>
</div>
</div>

test-random-number.ppt

Hi,
 help me with a macro that will generate random values¿¿? I need to get my macro when pressing "random-number" generated the numbers in the range from 200 to 45000000 But with the rule that generated numbers should not be repeated. The result should be displayed as "Shape1" the text with a colon (I attach my .ppt file).
Thank you in advance for all your help,
TM 

How to generate numbers in a certain range?

PowerPoint is a slide show presentation program currently developed by Microsoft. PowerPoint presentations consist of a number of individual pages or "slides" that may contain text, graphics, sound, movies, and other objects, which may be arranged freely. The presentation can be printed, displayed live on a computer, or navigated through at the command of the presenter. Slides can also form the basis of webcasts.

Microsoft PowerPoint

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.