perfecting VBA

[Jan Kalop]

This VBA formula is working perfectly, but I would like to be able control, the amount of numbers (in the case of bellow VBA formula is 28) to be random, from designated worksheet cell, for sample A1.
The same refers to choosing the Range (which in this sample is 6) to be able to control from designated worksheet cell, for sample B1.


"Sub TwentyfiveRandOf25ONLY6()
Dim anArray(1 To 28) As Long
Dim i As Long
Dim randIndex As Long, temp As Long
For i = 1 To 28
anArray(i) = i
Next i
For i = 1 To 28
Randomize
Do
randIndex = (Rnd() * 28) + 1
Loop Until randIndex <= 28
temp = anArray(randIndex)
anArray(randIndex) = anArray(i)
anArray(i) = temp
Next i
Range("aq8").Resize(, 6).Value = anArray
End Sub"




Is this possible to rearrange the VBA formula to achieve that, and how?

 

[JumboCactuar]

Assuming cell A1 is a value you can try

Dim myVal as integer
myVal = Range("A1").Value

Then replace all instances of 28 in your code with myVal

 

[Jan Kalop]

Assuming cell A1 is a value you can try

Dim myVal as integer
myVal = Range("A1").Value

Then replace all instances of 28 in your code with myVal

Which section of the VBA code I would have to replace?

 

[Fluff]

@Jan Kalop

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).