Probably very simple, but I'm in a hurry.
Public Sub StergeSTorOR() Dim oRow As Range Dim cell As Range Dim i As Long, j As Long Application.ScreenUpdating = False For i = Selection(Selection.Count).Row To Selection.Cells(1, 1).Row Step -1 For j = Selection(Selection.Count).Column To Selection.Cells(1, 1).Column Step -1
* * How I loop about the value of a cell and change it. and vice versa at the same time
Next j Next i Application.ScreenUpdating = True
End Sub
source share