>>698
数式セルだけに限定しないで
全部貼り付けちゃえばいいんじゃないの

Sub Macro3()
Dim temp()
temp = Selection
Selection = temp
End Sub