SwapVar (2)
Sub Swappa(X As Variant, Y As Variant) Dim K As Variant K=X X=Y Y=K End Sub
Sub Swappa(X As Variant, Y As Variant)
Dim K As Variant
K=X
X=Y
Y=K
End Sub
(swapvar2.html)- by Paolo Puglisi - Modifica del 25/3/2019