How to put the first three words to appear at random location on each bingo card?

[maytam]

I downloaded attached the buzzword bingo Excel file from internet. There are 30 buzzwords in worksheet “Words”. However, I need the first three words A, B and C to appear at random location on each card.

Thank you very much for help in advance.

[Special-K]

This works

Sub k1()
numCards = Worksheets("Words").Cells(3, 2)
For i = 1 To numCards
For j = 1 To 3
n = 0
Do Until n = 1
k = Int(Rnd() * 3) + 1
l = Int(Rnd() * 3) + 1
m = (i - 1) * 4 + k
o = Worksheets("Words").Cells(m, l)
If Not (InStr("ABC", o)) Then
Worksheets("Cards").Cells(m, l) = Chr(64 + j)
n = 1
End If
Loop
Next j
Next i
End Sub