By using listi.net you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

listi.net

 


RandomPattern

Sub RandomPattern()
'Cells.Clear
CreateSheet "Excel Art"

Cells.RowHeight = 5
Cells.ColumnWidth = 1

For i = 1 To 97
    For j = 1 To 128
        
        Cells(i, j).Interior.Color = RGB([=randbetween(1,255)], [=randbetween(1,255)], [=randbetween(1,255)])
    Next
Next
End Sub
blog comments powered by Disqus