'
' ..\..\..\runVBAFilesInOffice.vbs -excel interior -c Go
'
public sub Go()
dim x as long, y as long
for x = 1 to 10
for y = 1 to 10
cells(x, y).interior.color = rgb(25*x, 25*y, 30)
next y
next x
activeWorkbook.saved = true
end sub
.pattern property must be set to xlNone: cells(x, y).interior.pattern = xlNone