Demasiadas variables locales no estáticas.

Hola chic@s, mi problema es:

en A1 que se genere un numero aleatorio entre (1-50)

en B1 " " " " " " " " y que lo compare con A1, siendo A1<>B1.

en C1 " " " " " " " " y que se compare con A1 y con B1,

siendo A1<>B1, A1<>C1, B1<>C1.

La solución me la dió un experto y es:

Sub Aleatorios()

Do

Range("A1:C1").ClearContens

Range("A1").Formula = "=ALEATORIO.ENTRE(1,50)"

Range("B1").Formula = "=ALEATORIO.ENTRE(1,50)"

Range("C1").Formula = "=ALEATORIO.ENTRE(1,50)"

Loop Until Range("A1").Value <> Range("B1").Value And Range("A1").Value <>_ Range("C1").Value And Range("B1").Value <> Range("C1").Value

End Sub

Hasta aquí todo bien, el problema viene cuando quiero comparar 49 casillas(en vez de tres(A1,B1,C1); cuando llevo comparadas 23 casillas me da el error "demasiadas variables locales no estáticas".¿Cómo puedo hacer para comparar 49 casillas(A1:G7)?.

Gracias.

P.D. La versión es Office 2000 Premium(Excel 2000)