Veja se o anexo lhe ajuda...  BotaoOpcaoCaption.xlsm

@andregomesmac Veja se o anexo resolve...  Sorteio.xlsm

@andregomesmac  SorteioAleatorio-002.xlsm

Com InputBox, para escolher PAGO ou NÃO PAGO, e selecionando o número sorteado. Sub sorteio() Dim celula As String Dim resultado As Integer ...

Veja se resolve Sub sorteio() Dim celula As String Dim resultado As Integer Pagos LINHA = 1 celula = "E" + CStr(LINHA) i =...

Anexe o que você já tem pronto para podermos partir daí em diante.