Thanks Michael. That works perfectly

"michael.beckinsale" wrote:

Hi Otto,

Try replacing each bit of your code that looks like this:

Range("M19:M58").Interior.ColorIndex = 4
Selection.AutoFill Destination:=Range("M18:M58"), Type:=xlFillDefault
Range("M18:M58").Select

With this

Range("M18").Copy Destination:= Range("M19:M58")

This will copy all of the properties of 'M18' to 'M19:M58' and the
because you are not selecting ranges the code is more efficient.

HTH

Michael