$sheet->Range($rng)->Interior      ->{Color} = $patterncolour;