VBA copy und paste

[Thomasius]

hallo
hast recht 
hab es geändert wollte es ginge in einem rutsch zb. von blatt1 in das andere blatt2

Sub SpaltenAustauschen()
    Dim temp As Variant
      temp = Range("c11:c35").Value
        Range("C11:c35").Value = Range("D11:d35").Value
      Range("D11:d35").Value = temp
End Sub

lg Thomas
guten Rutsch ins Neue Jahr