Sub Macro1
 
Dim x
Dim y
 
x=y
y=x
 
'Edit Added
 
End Sub