Excel vba gerando letras aleatorias selecao

Escola SaberExcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Este macro do aplicativo Microsoft Excel VBA, gera uma letra aleatória de (A-Z), na célula ativa ou
na Região Selecionada.
'- - - - - - - - - - - - - - - - -
Sub sbx_letras_aleatorias()
Dim vCelulas As Range
Dim Maximo_Letras As Long
Randomize    ' iniciar o gerador de aleatórios.
Maximo_Letras = 26 'aqui voce poderá escolher de 1 a 26 letras.
For Each vCelulas In Selection 'veja que é na seleção area ou célula ativa
' gerando letras aleatórias de 1 a até o número escolhido em Maximo_letras
   vCelulas.Value = Chr(Int((Maximo_Letras * Rnd) + 1) + 64)

Next vCelulas
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel