Ok! Figured it out! Woo!

Sub FillPuzzle()
Dim c As Range
Range("A1:D7").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Randomize
For Each c In Selection.Cells
c = Chr$(64 + Int(26 * Rnd + 1))
Next
Range("A1").Select
End Sub

Biff
-----Original Message-----
Thanks keepITcool !

Yes, that works. I think I can figure out just enough to
tweak it a little. Well, maybe not.....but I'll try it.

At what line of that macro would I add code to make the
selection of the MT(empty) cells automatic?

Thanks
Biff

-----Original Message-----
Biff,

I dont know what you mean with MT cells,
but does this work for you?

If fills the selected cells..


Sub FillPuzzle()
Dim c As Range
Randomize
For Each c In Selection.Cells
c = Chr$(64 + Int(26 * Rnd + 1))
Next
End Sub



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Biff" wrote:

Hello Folks!

My VBA knowledge is slim to none so I need a little
help
with a macro.

I would like a macro that fills MT cells in a range
with
random uppercase letters A-Z. The cells will not
always
be
contiguous. I'm playing around with a word search
puzzle
and looking for a quick way to fill the MT cells.

Thanks for your help
Biff


.

.