return random letters - an example

No question here just a procedure for the archive.

Return a random letter for each cell in selection

Sub RandomLetterGenerator()

'Returns a random letter in each cell in selection
On Error Resume Next
Selection.FormulaR1C1 = "=CHAR(TRUNC(RAND()*26+65))"

'Paste value the formulas

Selection.Copy

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

search criteria
return random letters
insert random letters
generate random letters

Just so that this doesn't appear unanswered, one comment: no need for the pastespecial:

Sub RandomLetterGenerator2()
'Returns a random letter in each cell in selection
Selection.FormulaR1C1 = "=CHAR(TRUNC(RAND()*26+65))"
Selection.Value = Selection.Value
End Sub

HTH,
Bernie
MS Excel MVP


<aztecbrainsurgeon@yahoo.com> wrote in message
news:1125420984.897994.110160@o13g2000cwo.googlegroups.com...
> No question here just a procedure for the archive.
>
> Return a random letter for each cell in selection
>
> Sub RandomLetterGenerator()
>
> 'Returns a random letter in each cell in selection
> On Error Resume Next
> Selection.FormulaR1C1 = "=CHAR(TRUNC(RAND()*26+65))"
>
> 'Paste value the formulas
>
> Selection.Copy
>
> Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
> SkipBlanks:=False, Transpose:=False
> Application.CutCopyMode = False
>
> End Sub
>
> search criteria
> return random letters
> insert random letters
> generate random letters
>