how can i replace data in cell A2 with cell B2 and vice versa.
how can i replace data in cell A2 with cell B2 and vice versa.
Sub SwapData()
Dim num1 as Long, num2 as Long
num1=Range("a2").value
num2=Range("b2").value
Range("a2").value=num2
Range("b2").value=num1
End Sub
HTH
Myles
...constantly looking for the smoother pebble while the whole ocean of truth lies before me.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks