Hente baggrundsfarve fra en celle til en anden..

Hej

Jeg ville lave en makro (som jeg her har kaldt: farve), der henter formatet fra celle A1 til f.eks. celle C1.

Sub farve()
'
' farve Makro
'

'
    Range("A1").Select
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

du kan lave koden lidt kortere

Range("A10").Interior.ColorIndex = Range("A1").Interior.ColorIndex