Attribute VB_Name = "testcellinterior2"
Sub ƒeƒXƒg()
    
    Range("A1:C6").Interior.ColorIndex = 22
    
    Range("A1").Interior.Pattern = xlGray75
    Range("B1").Interior.Pattern = xlGray50
    Range("C1").Interior.Pattern = xlGray25
    Range("A2").Interior.Pattern = xlGray16
    Range("B2").Interior.Pattern = xlGray8
    Range("C2").Interior.Pattern = xlHorizontal
    Range("A3").Interior.Pattern = xlVertical
    Range("B3").Interior.Pattern = xlDown
    Range("C3").Interior.Pattern = xlUp
    Range("A4").Interior.Pattern = xlChecker
    Range("B4").Interior.Pattern = xlSemiGray75
    Range("C4").Interior.Pattern = xlLightHorizontal
    Range("A5").Interior.Pattern = xlLightVertical
    Range("B5").Interior.Pattern = xlLightDown
    Range("C5").Interior.Pattern = xlGrid
    Range("A6").Interior.Pattern = xlCrissCross
    Range("B6").Interior.Pattern = xlSolid

    Range("A8:C9").Interior.ColorIndex = 6
    Range("A8:C9").Interior.Pattern = xlGrid
    Range("A8").Interior.PatternColorIndex = 5
    Range("B8").Interior.PatternColorIndex = 10
    Range("C8").Interior.PatternColorIndex = 20
    Range("A9").Interior.PatternColorIndex = 30
    Range("B9").Interior.PatternColorIndex = 40
    Range("C9").Interior.PatternColorIndex = 50

End Sub