Copy a Cell with a macro
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
|