Sub swapvalues()
x = 10
y = 5
MsgBox "X : " & x & " Y : " & y & vbCrLf
'Code to swap 'x' and 'y'
x = x + y '// x now becomes 15
y = x - y '// y becomes 10
x = x - y '// x becomes 5
MsgBox "X : " & x & " Y : " & y & vbCrLf
End Sub
VBA Outlook KPI Excel Alt+F11 Dashboards Macros Recording Graphs Automation Developer WaterFall Powerpoint Charts Pivot Tables Forecast Charts