Rellenar celda escogida aleatoriamente en hoja excel

Como le puedo agregar al código que las celdas que escoge aleatoriamente de la hoja estadística las rellene de color amarillo

Sub Aleatorios()
For x = 1 To 22
f = Int((42 * Rnd) + 1)
c = Int((256 * Rnd) + 1)
Sheets("analisis").Range("C" & x) = _
Sheets("estadisticas").Cells(f, c)
Next
End Sub