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


wrote in message
oups.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