Códio VBA buscar valor em uma célula alterável

Question

Possuo o Código VBA abaixo e gostaria de saber se é possível buscar o número contido na linha: "Const nMáximo As Long = 81" em uma célula da planilha. Esta célula sofreria variações conforme o número de itens que eu tiver em uma listagem.

O objetivo é NÃO ter que precisar entrar e editar o Código VBA toda vez que alterar a quantidade de ítens da listagem.

-------------------------------------------------------------

Sub GeraNúmAleatSemRepetir()

Const nMínimo As Long = 1
Const nMáximo As Long = 81
Const strDestino As String = "A5:U21"
Dim n As Long
Dim r As Long
Dim col As Collection
Randomize Timer
Set col = New Collection
On Error Resume Next
    Do
        n = Int(Rnd * nMáximo) + nMínimo
        col.Add n, CStr(n)
        Loop Until col.Count = nMáximo
        For n = 1 To nMáximo
            Range(strDestino).Cells(n) = col(n)
        Next n
    On Error GoTo 0
End Sub

----------------------------------------------------------------

Obrigado!!!

Answer 1

Logo, nMáximo não pode ser uma constante, deve ser uma variável, concorda?

Sub GeraNúmAleatSemRepetir()
    Const nMínimo As Long = 1
    Const strDestino As String = "A5:U21"
    
    Dim nMáximo As Long
    Dim n As Long
    Dim r As Long
    Dim col As Collection

    'Em qual célula você irá colocar o valor desejado?
    nMáximo = Range("A1")

    Randomize Timer
    Set col = New Collection
    On Error Resume Next
    
    Do
        n = Int(Rnd * nMáximo) + nMínimo
        col.Add n, CStr(n)
        Loop Until col.Count = nMáximo
        For n = 1 To nMáximo
            Range(strDestino).Cells(n) = col(n)
        Next n
    On Error GoTo 0
End Sub

---

http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG