Dim col(100)
Dim mmm As Integer

Sub ki093()
i = 1
Range("E11:H13").Select
If mmm = 0 Then
For Each sel In Selection
        col(i) = sel.Interior.ColorIndex
        i = i + 1
Next sel
mmm = 1
End If
For i = 11 To 13
    For j = 5 To 8
Cells(i, j).Interior.ColorIndex = Int(56 * Rnd + 1)
    Next
Next
End Sub

Sub ki093b()
i = 1
Range("E11:H13").Select
For Each sel In Selection
    sel.Interior.ColorIndex = col(i)
        i = i + 1
Next sel
Range("A1").Select
End Sub